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ABSTRACT 

In  recent  years,  the  political  climate  surrounding  drug  interdiction  has  brought 
the  focus  of  Coast  Guard  missions  into  emphasizing  the  prosecution  of  law 
enforcement  cases.  Many  law  enforcement  cases  are  pursuant  to  a  specific  search  and 
rescue  case  and  traditionally,  the  Coast  Guard  has  segregated  its  information  regarding 
vessels  into  separate  systems  for  each  of  these  areas.  The  existence  of  separate 
repositories  for  vessel  data  has  resulted  in  duplication  of  information,  lack  of 
consistency,  and  the  inability  to  integrate  information  between  systems.  The  purpose 
of  this  thesis  is  to  propose,  design,  and  implement  a  prototype  law  enforcement;  search 
and  rescue  database  system  to  provide  a  single  repository  for  law  enforcement  and 
search  and  rescue  vessel  data.  The  prototype  will  be  developed  at  Coast  Guard  Group 
Monterey. 


'( 


TABLE  OF  CONTENTS 


I.  INTRODUCTION 11 

A.  COAST  GUARD  GROUP  MONTEREY   11 

1 .  Overview 11 

2.  Search  and  Rescue  (SAR) 11 

3.  Law  Enforcement 13 

B.  STATUTORY  AUTHORITY 14 

C.  THESIS  BACKGROUND 15 

D.  GOALS  AND  OBJECTIVES 16 

E.  METHODOLOGY  .  ■ 17 

F.  SYSTEM  REQUIREMENTS 18 

G.  SYSTEM  OVERVIEW 18 

II.  SARELTIS  FEASIBILITY 20 

A.  POLITICAL  FEASIBILITY .20 

B.  ECONOMIC  FEASIBILITY 21 

1.  Existing  Method 22 

2.  Proposed  System 22 

3.  Existing  Method  Analysis 23 

4.  Proposed  Method  Analysis: 25 

5.  Proposed  versus  Existing  Method  Cost  Comparisons:    29 

III.  TECHNICAL  FEASIBILITY 30 

A.  LAW  ENFORCEMENT  INFORMATION  SYSTEM   30 

B.  SEARCH  AND  RESCUE  INTELLIGENCE 
INFORMATION  SYSTEM 31 

C.  INADEQUACIES  OF  REQUEST  FOR  THE  SARELTIS 
PROTOTYPE .31 

D.  PROPOSED  LANGUAGE  ENVIRONMENT  32 


IV.  USERS  GUIDE 33 

A.  INTRODUCTION 33 

B.  SYSTEM  STARTUP  PROCEDURES   34 

1.  Machine  Configuration  Requirements 34 

2.  Initial  Program  Loading   34 

C.  SARELTIS  SECURITY 36 

D.  SARELTIS  OPERATIONS 37 

1.  Menu  System  Overview 37 

2.  Starting  SARELTIS 37 

3.  SARELTIS  Menu  Options 37 

E.  EXITING  SARELTIS 46 

F.  SARELTIS  MAINTENANCE   46 

V.  CONCLUSIONS  AND  RECOMMENDATIONS    48 

A.  SARELTIS  RESULTS 48 

B.  CONCLUSIONS    48 

C.  SUGGESTIONS  FOR  FURTHER  RESEARCH    49 

APPENDIX  A:  LOGICAL  MODELS 50 

APPENDIX  B:  SYSTEM  REPORTS 62 

APPENDIX  C:  SARELTIS  PHYSICAL  STRUCTURE 109 

APPENDIX  D:  MODULE  FUNCTIONAL  DESCRIPTIONS   228 

APPENDIX  E:       SOURCE  CODE  FOR  ANCILLARY  PROGRAM 

MODULES 244 

APPENDIX  F:  SARSYS  SOURCE  CODE 251 

APPENDIX  G:  SENTRY  SOURCE  CODE 255 

APPENDIX  H:  MODIFY  SOURCE  CODE   302 

APPENDIX  I:  SREPORTS  SOURCE  CODE    329 

APPENDIX  J:  INTRPTS  SOURCE  CODE 332 


APPENDIX  K:      BRDRPTS  SOURCE  CODE    346 

APPENDIX  L:       SARRPTS  SOURCE  CODE 361 

APPENDIX  M:     VSLRPTS  SOURCE  CODE 383 

APPENDIX  N:      PRSRPTS  SOURCE  CODE 390 

APPENDIX  O:      SQUERY  SOURCE  CODE    397 

APPENDIX  P:       SUTILITY  SOURCE  CODE   420 

LIST  OF  REFERENCES 425 

BIBLIOGRAPHY        426 

INITIAL  DISTRIBUTION  LIST 428 


LIST  OF  TABLES 


1.  GROUP  MONTEREY  SAR  STATISTICS    13 

2.  GROUP  MONTEREY  BOARDING  STATISTICS    14 

3.  FIGURE  -  PROGRAM  CORRESPONDENCE    108 


LIST  OF  FIGURES 


1.1        Group  Monterey  Organization 12 

4.1  SARELTIS  Master  Menu 38 

4.2  SARELTIS  Input  Menu 39 

4.3  SARELTIS  Modify  Menu    39 

4.4  SARELTIS  Query  Menu    40 

4.5  Vessel  Query  Search  Chain 41 

4.6  Personnel  Query  Search  Chain 42 

4.7  SARELTIS  Reports  Main  Menu 43 

4.8  SARELTIS  Intelligence  Reports  Menu 43 

4.9  SARELTIS  Boarding  Reports  Menu 44 

4.10  SARELTIS  SAR  Reports  Menu 44 

4.1 1  SARELTIS  Vessel  Reports  Menu 45 

4.12  SARELTIS  Personnel  Reports  Menu 45 

4.13  SARELTIS  Utilities  Menu 46 

A.l       Existing  SAR  System  -  Level  0 51 

A.2       Existing  SAR  System  -  Level  1 52 

A. 3       Existing  ELT  System  -  Level  0 53 

A.4       Existing  ELT  System  -  Level  1 54 

A. 5       Proposed  SAR  System  -  Level  0 55 

A. 6       Proposed  SAR  System  -  Level  1  .  . 56 

A.7       SAR  System  SARELTIS  Automation  Boundary   57 

A.8       Proposed  ELT  System  -  Level  0 58 

A. 9       Proposed  ELT  System  -  Level  1 59 

A.  10     ELT  System  SARELTIS  Automation  Boundary 60 

A.  11     Bachman  Diagram  of  Proposed  System 61 

B.  1        Boarding  Listing 63 

B.2       Major  Grid  Area  Boarding  Frequency 64 

B.3       Minor  Grid  Area  Boarding  Frequency 66 


B.4  Vessel  Boarding  History  68 

B.5  Courtesy  Motorboat  Examination  Summary 69 

B.6  SAR  and  Boarding  Day/Night  Summary 70 

B.7  EPIC  Code  Statistical  Analysis 71 

B.8  Summary  of  EPIC  Codes  Assigned   72 

B.9  Immediate  Distress  Statistics   73 

B.10  Vessel  Intelligence  Remarks  Summary 74 

B.  1 1  Operator  Listing    75 

B.12  Operators  of  Vessels  Summary 76 

B.13  Operator  Query  Report 77 

B.14  Owners  Listing 77 

B.15  Owners  of  Vessels  Summary 78 

B.  16  Owner  Query  Report 79 

B.17  Personnel  Intelligence  Listing  . 80 

B.18  Personnel  Query  Report -. 81 

B.19  Personnel  Intelligence  Report 81 

B.20  SAR  Listing 82 

B.21  SAR  Months  and  Years  Frequency  Statistics 83 

B.22  SAR  Day  of  Week  Frequency  Statistics    84 

B.23  Major  Grid  Area  SAR  Frequency *.  .  85 

B.24  Minor  Grid  Area  SAR  Frequency 87 

B.46  Vessel  Query  SAR  History 89 

B.26  Small  Boat  Operations  Area  SAR  Frequency 90 

B.27  SAR  Unit  Time  Summary 91 

B.47  Small  Boat  Operations  Area  Boarding  Frequency 92 

B.29  Stolen  Vessel  Listing 93 

B.30  Boarding  Unsafe  Condition  Summary 94 

B.31  Violation  Summary  by  Vessel  Construction  Type 95 

B.32  Violation  Summary  by  Engine  Compartment  Type    95 

B.33  Vessel  Listing 96 

B.34  Violation  Summary  by  Fuel  Compartment  Type    97 

B.35  Violation  Summary  by  Hull  Material  Type 98 

B.36  Query  Vessel  Intelligence  History 98 


B.37  Boarding  Violation  Summary 99 

B.38  Violation  Summary  by  Vessel  Length   100 

B.39  Violation  Summary  by  Vessel  Propulsion  Type 101 

B.40  Vessel  Operators  Summary  Listing 102 

B.41  Vessel  Owners  Summary  Listing 103 

B.42  Query  Vessel  Information  Listing 104 

B.43  Violation  Summary  by  Vessel  Type 105 

B.44  Violation  Summary  by  Vessel  Use 106 

B.45  Violation  Summary  by  Vessel  Year   107 

C.  1  SARELTIS  Menu  Hierarchy  Chart 110 

C.2  Input  Menu  Hierarchy  Chart Ill 

C.3  Modify  Menu  Hierarchy  Chart 1 12 

C.4  Query  Menu  Hierarchy  Chart 113 

C.5  Reports  Master  Menu  Hierarchy  Chart 1 14 

C.6  Intelligence  Reports  Menu  Hierarchy  Chart 115 

C.7  Boarding  Reports  Menu  Hierarchy  Chart 116 

C.8  SAR  Reports  Menu  Hierarchy  Chart 117 

C.9  Vessel  Reports  Menu  Hierarchy  Chart    118 

CIO  Personnel  Reports  Menu  Hierarchy  Chart 119 

C.l  1  Utilities  Menu  Hierarchy  Chart  : 120 


10 


I.  INTRODUCTION 

A.       COAST  GUARD  GROUP  MONTEREY 

1.  Overview 

Coast  Guard  Group  Monterey  is  the  southernmost  of  three  Groups  in  the 
Twelfth  Coast  Guard  District.  The  Group  is  the  primary  Coast  Guard  interface  with 
other  federal,  state,  and  local  agencies  and  the  general  public  in  its  area  of 
responsibility.  Group  Monterey  serves  175  miles  of  California  coastline  out  to  60 
nautical  miles  from  Point  Ano  Nuevo  (north  of  Santa  Cruz)  south  to  Point  Sal  (north 
of  Santa  Maria).  Within  this  geographic  area,  the  Group  is  tasked  as  the  Search  and 
Rescue  Mission  Coordinator. 

The  primary  missions  of  Group  Monterey  include  law  enforcement,  search  and 
rescue,  marine  environmental  protection,  and  boating  safety.  To  fulfill  these  missions, 
the  Group  is  staffed  with  over  100  men  and  women  who  operate  and  maintain  a 
variety  of  law  enforcement  and  rescue  resources.  The  specific  organizational  structure 
and  manning  is  outlined  in  Figure  1.1. 

2.  Search  and  Rescue  (SAR) 

Coast  Guard  Group  Monterey  has  been  an  active  SAR  Mission  Coordinator 
during  the  past  eight  years.  From  1979  to  1983,  there  were  over  1641  SAR  cases. 
More  detailed  SAR  statistics  have  been  maintained  since  1984  and  are  summarized  for 
the  period  October  1,  1983  -  April  1,  1987  in  Table  1. 

Group  Monterey  has  the  following  Coast  Guard  units  available  for  SAR 
response: 

CG-41367  (41  foot  utility  boat) 

CG-41369  (41  foot  utility  boat) 

CG-44346  (44  foot  motor  lifeboat) 

CG-195003  (19  foot  utility  boat) 

Point  Barrow  (82  foot  patrol  boat) 

Point  Heyer  (82  foot  patrol  boat) 

Cape  Wash  (95  foot  patrol  boat) 

Coast  Guard  and  military  aviation  organizations  and  units  supporting  Group 
Monterey's  SAR  mission  include: 

Coast  Guard  Air  Station  Sacramento 
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Figure  1.1 


Group  Monterey  Organization. 
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Coast  Guard  Air  Station  San  Francisco 
Fort  Ord  MAST  Helicopters 
Fort  Hunter  Ligget  MAST  Helicopters 

Group  Monterey,  in  addition  to  its  Coast  Guard  and  military  SAR  resources, 
has  received  SAR  assistance  from  the  following: 

Coast  Guard  Auxiliary  vessels  and  aircraft 

Santa  Cruz  Harbor  Master 

Moss  Landing  Boat  Works 

California  Fish  and  Game 

San  Luis  Obispo  Harbor  Master 

Morro  Bay  Harbor  Master 

California  Highway  Patrol 

Various  county  sheriff  departments 

Pacific  Grove  Marine  Rescue 

Numerous  local  police  units 


TABLE  1 

GROUP  MONTEREY  SAR  STATISTICS 

FY 

Cases 

Lives 
Lost 

Lives 
Saved 

Persons 
Assisted 

Value  of 
Property 
Lost 

Value  of 
Property 
Assisted 

84 

378 

21 

62 

731 

S    2,033K 

S  111.473K 

85 

324 

19 

48 

604 

S     1,403K 

S       7,492K 

86 

471 

20 

82 

852 

S       616K 

S     10.217K 

87 

217 

17 

33 

372 

S       122K 

S       5.276K 

3.  Law  Enforcement 

Group  Monterey  is  mandated  by  law  to  conduct  boardings  of  recreational, 
commercial,  and  passenger  vessels  to  ensure  compliance  with  applicable  federal  laws, 
regulations,  and  standards.  The  FY86  boarding  statistics  for  Group  Monterey  are 
summarized  in  Table  2. 

Agencies  that  assist  or  work  in  cooperation  with  Coast  Guard  Group 
Monterey  include: 

Monterey  County  Sheriffs  Department 
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Monterey  Police  Department 

Monterey  County  District  Attorney 

California  Highway  Patrol 

United  States  Customs  Service  (USCS) 

Bureau  of  Alcohol,  Tobacco,  and  Firearms  (ATF) 

Drug  Enforcement  Administration  (DEA) 

California  Department  of  Motor  Vehicles 

Santa  Cruz  County  Narcotics  Enforcement  Team 

United  States  Border  Patrol 

Narcotic  Detection  Dogs  (DELTA  IX) 

Fort  Ord  Federal  Police 

Santa  Cruz  Harbor  Master 

Pacific  Grove  Police  Department 

Monro  Bay  Police  Department 


TABLE  2 
GROUP  MONTEREY  BOARDING  STATISTICS 

Total  Boardings 444 

Written  Notices  Issued 181 

Written  Warnings  Issued 105 

Safety  Boardings  Conducted 158 


B.       STATUTORY  AUTHORITY 

The  statutory  authority  that  governs  the  operations  of  Coast  Guard  Group 
Monterey  can  be  divided  into  two  separate  classifications.  One  area  of  responsibility 
and  authority  involves  laws  relating  to  navigation  and  merchant  shipping.  Laws  that 
relate  to  customs  and  revenue,  immigration,  quarantine,  protection  of  fish  and  game 
that  fall  within  the  jurisdiction  of  other  federal  agencies,  but  which  require  the  unique 
authority  and  marine  facilities  of  the  Coast  Guard  for  effective  enforcement  comprise 
the  second  legal  category.  Specific  statutory  authority  which  delineates  and  amplifies 
Coast  Guard  responsibilities  and  jurisdiction  include  the  following: 
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1.  14  USC  2.  This  statute  outlines  the  specific  duties  and  responsibilities  of  the 
Coast  Guard  and  gives  the  Coast  Guard  authority  to  enforce  or  assist  in  the 
enforcement  of  all  applicable  federal  laws. 

2.  14  USC  89.  This  statute  grants  specific  law  enforcement  authority  to  the  Coast 
Guard.  It  gives  the  Coast  Guard  the  authority  to  make  "inquiries, 
examinations,  inspections,  searches,  seizures,  and  arrests  on  the  high  seas  and 
waters  over  which  the  United  States  has  jurisdiction  for  prevention,  detection, 
and  supression  of  violations  of  laws  of  the  United  States". 

3.  14  USC  141.  This  statute  gives  the  Coast  Guard  the  authority  to  assist  or  be 
assisted  by  any  federal  agency,  state,  territory,  or  possession  of  the  United 
States  in  the  enforcement  of  applicable  laws. 

4.  14  USC  143  /  19  USC  1401(i).  These  statutes  grant  customs  law  enforcement 
authority  to  the  Coast  Guard. 

5.  19  USC  1581.  This  statute  grants  authority  to  the  Coast  Guard,  when 
enforcing  customs  laws,  to  seize  any  vessel;  merchandise,  or  arrest  any  person  in 
violation  of  these  laws. 

6.  Port  and  Waterways  Safety  Act  of  1970  (33  USC  1221).  This  act  increases  the 
supervision  of  vessel  and  port  operations  and  mandates  that  all  vessels 
operating  in  navigable  waters  of  the  United  States  comply  with  all  applicable 
standards  and  requirements  for  vessel  construction,  equipment,  manning, 
operational  procedures,  and  safe  handling  of  hazardous  cargos. 

7.  Federal  Boat  Safety  Act  of  1971  (46  USC  1451).  This  act  improves  recreational 
safe  boating  and  facilities  by  prescribing  specific  requirements  and  standards  for 
boats  and  equipment. 

8.  Executive  Order  11735  on  Oil  Pollution  (August  3,  1973).  This  order  directs  the 
Coast  Guard  to  receive  notice  of  discharges  of  oil  or  hazardous  substances,  to 
establish  procedures  to  prevent  and  contain  discharges,  to  inspect  vessels 
containing  oil  and  hazardous  substances  and  to  board  and  arrest  persons  in 
violation  of  applicable  laws. 

9.  Executive  Order  11727  on  Drug  Enforcement  (July  6,  1973).  This  order 
establishes  a  Drug  Enforcement  Administration  within  the  Department  of 
Justice  and  directs  that  each  federal  department  and  agency  shall  assist  in  the 
enforcement  of  laws  involving  narcotics  and  dangerous  drugs. 

C.       THESIS  BACKGROUND 

As  demonstrated  throughout  Coast  Guard  history  and  mandated  by  statute,  the 
Coast  Guard  must  be  able  to  rapidly  respond  to  any  Search  &  Rescue  crisis  or  Law 
Enforcement  scenario.  Additional  and  timely  information  in  these  crises  and  scenarios 
can  make  the  difference  between  lives-saved  and  lives-lost,  or  violators  apprehended 
and  violators  that  escape  prosecution.  All  too  often,  this  information  is  maintained  in 
filing  cabinets  —  virtually  inaccessible  when  decisions  must  be  made  within  minutes. 
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Coast  Guard  units,  such  as  Group  Monterey,  must  respond  to  situations  where  they 
have  little  or  no  information.  To  find  out  that  a  certain  vessel  owner/ operator  has  a 
history  of  violations  or  is  considered  armed  and  dangerous  can  assist  Coast  Guard 
boarding  officers  in  better  preparing  for  what  could  be  a  life-threatening  situation. 
Additionally,  during  SAR  cases,  it  can  be  critical  to  know  a  vessel's  description  to 
facilitate  its  identification  by  land-based  units,  air  resources,  or  Coast  Guard  vessels 
dispatched  to  search  for  the  vessel  in  distress. 

In  order  to  respond  to  the  need  for  automated  information  support,  the  Search 
and  Rescue  and  Enforcement  of  Laws  and  Treaties  Intelligence  System  (SARELTIS) 
was  designed  and  implemented.  Coast  Guard  Group  Monterey  served  as  the  test  bed 
for  determining  information  needs  and  systems  analysis.  The  system  is  able  to  not  only 
respond  to  real-time  SAR  and  Law  Enforcement  cases,  but  is  also  robust  enough  to 
allow  users  to  analyze  the  data  collected  to  form  their  own  local  intelligence 
information  base.  The  system's  standard  reports  can  provide  limited  decision-making 
support  for  Coast  Guard  resource  allocation  and  scheduling. 

D.       GOALS  AND  OBJECTIVES 

The  goals  and  objectives  of  SARELTIS  are  twofold:  first,  to  provide  a  real-time  query 
capability  and  second,  to  provide  historical  management  reports  that  can  aid  in 
resource  allocation,  scheduling,  and  distribution.  The  following  functions/products  will 
be  performed/  prepared  by  SARELTIS: 

a.  Interactive  Query 

*  Vessel  Searches 

*  Personnel  Searches 

b.  Intelligence  Reporting 

*  El  Paso  Intelligence  Center  (EPIC)  Intelligence  Summary 

*  Vessel  Profiles  for  Violation  Analysis 

*  Personnel  Intelligence  Summary 

c.  Boarding  Historical  Reports 

*  Violation/  Unsafe  Condition  Analysis 

*  Courtesy  Motorboat  Examination  (CME)  Analysis 

*  Geographic  Area  Analysis 

d.  SAR  Historical  Reports 

*  Immediate  SAR  Case  Analysis 

*  Geographic  Area  Analysis 
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*  SAR  Unit  Operational  Time  Utilization  Summary 

*  Days/Months/ Years  SAR  Case  Analysis 

e.  Vessel  Historical  Reports 

*  Vessel  Summary 

f.  Personnel  Historical  Reports 

*  Vessel  Owners  Summary 

*  Vessel  Operators  Summary 

E.   METHODOLOGY 

Two  prototypes  were  developed  as  a  precursor  to  SARELTIS.  Functionally,  the 
first  prototype  concentrated  on  the  Law  Enforcement  information  requirements  on  a 
limited  scale  while  the  second  prototype  concentrated  on  SAR.  After  proving  the 
technical  feasibility  of  the  SARELTIS  concept,  a  feasibility  study  was  prepared  and  is 
included  as  Chapter  II.   The  two  prototypes  will  be  discussed  in  Chapter  III. 

The  logical  design  structure  necessary  to  fulfill  the  information  requirements  to 
fully  implement  SARELTIS  is  presented  in  the  data  flow  diagrams  of  Appendix  A. 
These  dataflow  diagrams  depict  the  complete  analysis  of  the  SAR  and  Law 
Enforcement  functions  and  processes  of  Coast  Guard  Group  Monterey,  and  were 
developed  through  extensive  interviews  with  Group  personnel.  Additionally,  these 
diagrams  show  the  automation  boundary  of  SARELTIS,  which  is  a  graphic 
representation  of  precisely  where  SARELTIS  will  fit  into  these  mission  areas.  Once 
this  automation  boundary  was  identified,  the  logical  entities  and  their  relationships 
within  this  boundary  were  determined  and  represented  by  the  Bachman  diagram  found 
in  Appendix  A. 

The  physical  design  process  for  the  SARELTIS  prototype  involved  the 
conversion  of  the  logical  model  into  a  language- specific  database  structure  and  an 
identification  of  the  modules  required  to  implement  the  required  functions  of  the 
application.  To  perform  this  conversion,  all  of  the  currently  used  source  documents 
were  identified.  A  survey  was  prepared  containing  all  of  the  data  elements  present  on 
these  forms  and  was  distributed  to  representative  groups  of  users  at  Group  Monterey. 
These  users  identified  the  degree  to  which  the  data  elements  were  necessary  for  the 
performance  of  their  duties.  From  the  results  of  this  survey,  the  data  elements  required 
within  the  SARELTIS  database  were  identified.  These  data  elements  were  then 
grouped  within  the  previously  defined  entities  of  the  Bachman  diagram  and  became  the 
basis  for  the  SARELTIS  physical  database  structure. 
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At  the  completion  of  physical  database  structure  implementation,  the  specific 
functions  that  were  required  to  operate  upon  this  structure  were  identified,  including 
the  generation  of  all  required  and  anticipated  user  and  management  reports.  These 
functions  were  then  divided  into  implementable  modules,  coded,  and  tested.  Upon 
completion  of  testing,  modules  with  related  functionality  were  combined  and  the  sub- 
menu code  required  to  invoke  each  application  was  developed.  Finally,  the  main 
menu,  security,  and  utility  modules  were  constructed  and  the  entire  system  was 
integrated.  The  module  functional  descriptions  are  provided  in  Appendix  D  and  the 
menu  hierarchy  charts  are  included  in  Appendix  C. 

The  User's  Guide,  located  in  Chapter  IV,  provides  the  user  with  a  step-by-step 
guide  to  the  SARELTIS  menu-based  system.  The  various  reports  generated  by 
SARELTIS  are  displayed  in  Appendix  B. 

F.  SYSTEM  REQUIREMENTS 

To  operate  SARELTIS,   the  following  hardware  is  required: 

*  IBM®  PC-XT,  PC-AT,   or  compatible  microcomputer 

*  DOS®,   Version  2.0  or  higher 

A  hard  disk,  and  one  double-sided,  double-density  5.25  floppy  disk  drive 

*  384K  of  main  memory  {system  processing  is  greatly  enhanced  if  640K  or  1M  of 
main  memory  is  available)    • 

*  Color  or  monochrome  monitor 

*  Printer,  with  normal  or  large  carriage 

SARELTIS  was  developed  utilizing  the  R:base  5000®  Database  Management 
System  written  by  MicroRim,  Inc.,  of  Belleview,  Washington. 

G.  SYSTEM  OVERVIEW 

SARELTIS  is  an  interactive,  user-friendly,  menu-driven  system.  A  series  of 
screens  displaying  various  menus  provide  the  user  with  a  functional  man-machine 
interface. 

The.  overall  system  design  is  based  upon  one  relational  database  accessed  by 
eleven  functionally  separate  application  modules.  Application  modules  are  comprised 
of  functionally  distinct  programs.  These  program  functions  are  listed  in  Chapter  IV, 
the  User's  Guide,  with  each  module's  function  explained  in  detail  in  Appendix  D. 

All  system  reports  are  designed  to  be  printed  on  a  normal  (small)  width  carriage 
printer.    The  forty  five  reports  prepared  by  the  system  were  designed  to  assist  the 
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Commanding  Officer  or  Operations  Officer  to  make  better  resource  and  planning 
decisions. 

The  R:base  5000  language  is  easily  accessible  for  the  advanced  user  and  can  be 
used  to  build  other  applications,  reports,  forms,  searches,  and  displays  of  SARELTIS 
information  not  covered  in  the  original  implementation. 
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II.  SARELTIS  FEASIBILITY 

A  feasibility  study  is  a  compressed,  capsule  version  of  the  entire  systems  analysis 
and  design  process.  As  part  of  the  feasibility  process,  the  existing  system  is  examined, 
a  high  level  model  of  the  proposed  system  is  developed,  and  the  overall  feasibility  of 
the  project  is  evaluated.  This  chapter  will  examine  the  economic  and  the  political 
feasibilities  of  SARELTIS.  The  technical  feasibility  will  be  addressed  in  Chapter  III 
(discussion  of  the  prototypes). 

A.       POLITICAL  FEASIBILITY 

Due  to  recent  Congressional  pressures  and  unfavorable  publicity  concerning  the 
Coast  Guard's  zealous  boarding  practices  in  unwarranted  situations,  attention  has 
been  focused  on  the  lack  of  available  information  provided  to  boarding  officers  prior  to 
the  boarding  of  a  vessel.  Boarding  officers  must  comply  with  the  provisions  of  Title  14 
of  the  U.S.  Code,  Section  89,  concerning  their  use  of  force  necessary  to  compel  public 
and  commercial  boaters  to  comply  with  U.S.  laws  and  boarding  directions.  However, 
without  adequate  information  or  intelligence  prior  to  boarding,  the  degree  of  initial 
force  necessary  to  ensure  this  compliance  is  difficult  if  not  impossible  to  predetermine. 
Therefore,  any  means  of  providing  this,  intelligence  information  would  be  strongly 
welcomed  at  all  levels  of  the  Coast  Guard. 

Coast  Guard  Group  Monterey  was  contacted  in  early  June  1986  to  determine 
their  willingness  to  serve  as  a  test  site  for  the  implementation  of  a  prototype 
intelligence  system.  Their  response  was  overwhelming  and  highly  supportive. 
Following  the  initial  positive  reaction  of  Group  Monterey,  both  the  Twelfth  Coast 
Guard  District  and  Coast  Guard  Pacific  Area  intelligence  offices  were  approached  in 
December  1986  concerning  the  proposal  and  the  results  of  the  first  prototype.  They 
also  displayed  a  high  degree  of  enthusiasm  for  the  effort.  In  April  1987,  RADM  W. 
Merlin,  the  Coast  Guard's  senior  management  responsible  for  all  computer 
applications,  expressed  an  interest  in  the  project  and  promised  additional  hardware 
support. 

It  is  obvious  from  the  above  that  the  concept  of  providing  automated  intelligence 
and  information  is  supported  at  all  levels  of  the  Coast  Guard  —  from  local  operational 
personnel  to  top  management  of  the  entire  organization.  This  kind  of  multi-level 
organizational  support  has  shown  that  the  SARELTIS  project  is  politically  feasible. 
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B.       ECONOMIC  FEASIBILITY 

Economic  feasibility  is  demonstrated  if  it  can  be  shown  that  the  benefits  of  a 
system  outweigh  its  costs.  Before  making  any  cost/benefit  study,  it  is  important  to  list 
the  assumptions  that  were  used  so  that  the  reader  may  see  what  constraints  were 
imposed  on  the  analysis  and  where  the  costs  and  benefits  were  derived  from.  The 
following  is  a  list  of  assumptions  used  in  formulating  the  cost/benefit  analysis: 

a.  Management  information  research  on  Search  and  Rescue  (SAR)  cases  provided 
monthly. 

b.  Management  information  research  on  Enforcement  of  Laws  and  Treaties  (ELT) 
cases  provided  weekly. 

c.  SAR    management    information    research    performed    by    Group    Monterey's 
Officer-of-the-Day  (paygrade  E-6). 

d.  L/E  management  information  research  performed  by  Group  Monterey's  ELT 
Specialist  (paygrade  E-5). 

e.  Specific  ELT  case  research  performed  by  Group  Monterey's  Officer-of-the-Day 
(OOD). 

f.  Specific  SAR  case  research  performed  by  Group  Monterey's  Officer-of-the-Day 
(OOD). 

g.  Assume  2,000  man-hours  per  year. 

h.     Development  of  SARELT1S  performed  by  two  lieutenants  (paygrade  0-3). 

i.      All  costs  and  benefits  were  evaluated  based  on  the  Coast  Guard's  Annual 
Standard  Personnel  Costs  [Ref.  1],   The  pertinent  costing  data  is  as  follows: 

1)  paygrade  E-5  —  518,500    (S9.25  /  hour) 

2)  paygrade  E-6  —  522,300    (511.15  /  hour) 

3)  paygrade  0-3   —  S33,900    (516.95  /  hour) 
j.      The  annual  SAR  case  load  is  386  (Table  1). 

k.     The  annual  ELT  case  load  is  444  (Table  2). 

1.      The  annual  SAR  and  ELT  case  loads  will  remain  relatively  constant  over  the 
expected  life  of  the  project. 

m.    SARELTIS  has  an  expected  5  year  project  life. 

n.     Approximately  three  years  of  historical  SAR  and  ELT  case  data  will  be  entered 
upon  system  implementation. 

In  order  to  better  understand  how  the  actual  computations  contained  in  this 

section  were  derived,  a  synopsis  of  both  the  existing  and  proposed  systems  will  be 

discussed  below. 
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1 .  Existing  Method 

ELT  and  SAR  case  load  research  is  currently  not  conducted  due  to  the 
amount  of  time  necessary  to  perform  the  research  and  the  inaccessibility  of  the 
information.  It  has  been  estimated  by  Coast  Guard  Group  Monterey  OOD's  that  such 
research  would  take  a  minimum  of  1.5  to  2.0  hours  to  search  through  their  existing 
records  to  locate  any  available  pertinent  information  if  the  information  could  be  found 
at  all. 

Management  information  research  on  ELT  cases  is  performed  by  the  Group's 
ELT  Specialist  (paygrade  E-5)  who  must  manually  compile  statistics  on  a  weekly  basis. 
He  estimates  that  it  takes  a  minimum  of  1  man-day  to  perform  the  required  research 
and  the  preparation  of  subsequent  required  reports. 

Management  information  research  on  SAR  cases  is  performed  by  the  Group's 
OOD  (paygrade  E-6)  who  must  manually  compile  statistics  on  a  monthly  basis.  It  is 
estimated  that  this  research  takes  a  minimum  of  3  man-days  to  perform  the  research 
and  to  prepare  the  required  reports. 

2.  Proposed  System 

ELT  and  SAR  specific  case  research  will  be  handled  through  customized 
database  query  program  modules.  It  is  estimated  each  query  would  take  an  average  of 
3  minutes  to  enter  the  search  criteria  and  perform  the  actual  search. 

Management  information  research  on  ELT  cases  would  be  done  through  the 
use  of  customized  reports  where  users  can  define  specific  timeframes,  vessels, 
violations,  or  personnel  to  analyze  or  search.  It  is  estimated  that  it  would  take 
approximately  30  minutes  to  perform  a  series  of  reports  relating  to  ELT  information. 

Management  information  research  on  SAR  cases  would  be  done  through  the 
use  of  customized  reports  where  users  can  defme  specific  timeframes,  vessels,  or 
personnel  to  analyze  or  search.  It  is  estimated  that  it  would  take  approximately  30 
minutes  to  perform  a  series  of  reports  relating  to  SAR  information. 
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3.  Existing  Method  Analysis 

Recurrine  Costs: 

SAR  Case  Load  Research: 

Filling  out  required  SAR  case  documentation: 

2  hours  x  SI  1.15  (paygrade  E-6)  S22.30 

Annual  SAR  case  load  386 

S8,607.80 
Retrieving  specific  SAR  case  data: 

1.5  hours  x  SI  1.15  (paygrade  E-6)  S16.73 

Annual  SAR  case  load  386 

S6,457.78 
Total  SAR  Case  Load  Research:  S  15,065.58 

ELT  Case  Load  Research: 

Filling  out  required  ELT  case  documentation: 

1  hour  x  SI  1.15  (paygrade  E-6)  $11.15 

Annual  ELT  case  load  444 

S4,950.60 

Retrieving  specific  ELT  case  data: 

1.5  hours  x   SI  1.15  (paygrade  E-6)  S16.73 

Annual  ELT  case  load  444 

S7,428.12 
Total  ELT  Case  Load  Research:  SI 2,378.72 
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SAR  Management  Information  Research: 

Researching  SAR  documentation: 

4  man-days  x  SI  1.15/hour  x  8  hours  $356.80 

(paygrade  E-6) 
Monthly  Research  12 

Total  SAR  Management  Information  Research  54,281.60 

ELT  Managment  Information  Research: 

Researching  ELT  documentation: 

1  man-day  x  S9.25  x  8  hours  S74.00 

(paygrade  E-5) 
Weekly  Research  52 

Total  ELT  Management  Information  Research  53,848.00 

Total  Existing  Method  Costs  (Recurring): 

Total  SAR  Case  Load  Research:  515,065.58 

Total  ELT  Case  Load  Research:  S  12,378.72 

Total  SAR  Management  Information  Research  S4,281.60 

Total  ELT  Management  Information  Research  53,848.00 

Total  Recurring  Costs:  535,573.90 
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4.  Proposed  Method  Analysis: 

Non-Recurring  Costs: 

First  Prototype  Development  (using  R:base  4000): 

250  man-hours  x  SI 6.95  (paygrade  0-3)  54,237.50 

Second  Prototype  Development  (using  ReQuest): 

200  man-hours  x  SI 6.95  (paygrade  0-3)  S3,390.00 

SARELTIS  Development  (using  R:base  5000): 

2000  man-hours  x  SI 6.95  (paygrade  0-3)  S33,900.00 

SARELTIS  Initial  Historical  SAR  Data  Loading: 

.25  hours  x  SI  1.15  (paygrade  E-6)  S2.79 

386  cases  x  3  years  1,158 

S3,230.S2 

SARELTIS  Initial  Historical  ELT  Data  Loading: 

.25  hours  x  SI  1.15  (paygrade  E-6)  S2.79 

444  cases  x  3  years  1332 

S3,716.28 

Hardware  /  Software  Costs: 

IBM  PC-XT  compatible  computer  and  printer  S2,000.00 

R:base  5000  software  5400.00 

S2,400.00 
Total  Non-Recurring  Costs:  S50,874.60 
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Recurring  Costs: 


SAR  Case  Load  Research: 

Filling  out  required  SAR  case  documentation: 

2  hours  x   SI  LI 5  (pay grade  E-6)  S22.30 

Annual  SAR  case  load  386 

S8.607.80 

Loading  SARELTIS  with  SAR  case  data: 

.25  hours  x  SI  1.15  (paygrade  E-6)  S2.79 

Annual  SAR  case  load  386 

51,076.94 

Retrieving  specific  SAR  case  data: 

.05  hours  x  SI  1.15  (paygrade  E-6)  S0.56 

Annual  SAR  case  load  386 

S216.16 


Total  SAR  Case  Load  Research:  S9.900.90 
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ELT  Case  Load  Research: 

Filling  out  required  ELT  case  documentation: 

1  hour  x  $11.15  (pay grade  E-6)  SI  1. 15 

Annual  ELT  case  load  444 


S4,950.60 


Loading  SARELTIS  with  ELT  case  data: 

.25  hours   x   SI  1. 15  (paygrade  E-6) 
Annual  ELT  case  load 


Retrieving  specific  ELT  case  data: 

.05  hours  x   SI  1.15  (paygrade  E-6) 
Annual  ELT  case  load 


S2.79 
444 

51,238.76 

S0.56 

444 

S248.64 

Total  ELT  Case  Load  Research:  S6,438.00 
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SAR  Management  Information  Research: 

Researching  SAR  documentation: 

.5  hours  x   SI  1.15  (pay grade  E-6) 
Weekly  Research 


S5.58 
12 


Total  SAR  Management  Information  Research 


S66.96 


ELT  Managment  Information  Research: 

Researching  ELT  documentation: 

.5  hours   x   SI  1.15  (paygrade  E-6) 
Weekly  Research 


S5.58 
12 


Total  ELT  Management  Information  Research 


566.96 


System  Manager  Data  Validation: 
100  hours  x  SI  1.15  (paygrade  E-6) 

Hardware  Corrective  Maintenance: 

Software  Corrective  Maintenance: 


SI, 115.00 
S500.00 
S500.00 


Total  Recurring  Costs: 


S18.587.82 
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5.  Proposed  versus  Existing  Method  Cost  Comparisons: 

Total  Existing  Non-Recurring  Costs  S0.00 

Total  Proposed  Non-Recurring  Costs  S50, 874.60 


Additional  Non-Recurring  Costs  S50,874.60 

Total  Existing  Recurring  Costs  535,573.90 

Total  Proposed  Recurring  Costs  S  18,587.82 


Total  Recurring  Savings  SI 6,986.08 

Payback  Period  [Ref.  2:  p.  319]: 

First  Year  Costs  S50,874.60 

First  Year  Benefits  S16,986.08 

Payback  Period       =  Costs  /  Benefits 

=  $50,874.60  /  .$16,986.08 

=  2.99  years 

Internal  Rate  of  Return  (IRR): 

Estimated  First  Year  Costs  S50.874.60 

Estimated  First  Year  Benefits  SI 6,986.08 

Estimated  Second  Year  Benefits  SI 6,986.08 

Estimated  Third  Year  Benefits  ■  S  16,986.08 

Estimated  Fourth  Year  Benefits    .  SI 6,986.08 

Estimated  Fifth  Year  Benefits  SI 6,986.08 

Calculated  IRR  [Ref.  2:  p.  320-322]:  19.93% 
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III.  TECHNICAL  FEASIBILITY 

Can  the  system  be  implemented  using  current  technology  [Ref.  2:  p.  274]?  This  is 
the  question  that  must  be  answered  to  determine  and  evaluate  the  technical  feasibility 
of  a  project.  For  the  SARELTIS  project,  the  issue  of  current  technology  was 
approached  from  two  different  perspectives.  First,  was  the  concept  of  a  historical 
database  system  that  could  provide  on-line  query  information  and  complex 
management  reports  an  implementable  concept  within  the  scope  of  a  thesis  project? 
And  second,  was  this  concept  implementable  within  the  constraints  of  the  Coast  Guard 
standard  database  language,  ReQuest®?  During  the  last  year,  two  limited  scale 
prototypes  were  developed  by  the  authors  to  answer  these  two  questions  of  project 
technical  feasibility. 

A.       LAW  ENFORCEMENT  INFORMATION  SYSTEM 

Concept  implementability  was  the  question  that  was  addressed  by  the  design  of 
the  Coast  Guard  Law  Enforcement  Information  System,  the  first  prototype.  This 
prototype  was  programmed  on  the  Coast  Guard  Standard  Terminal  System  using  the ' 
relational  database  system  R:base  4000®,  and  provided  historical  information  on 
vessels,  operators,  and  vessel  boardings.  It  was  designed  to  facilitate  the  retrieval  of 
"intelligence-type"  information  to  better  prepare  boarding  officers  and  boarding  petty 
officers  prior  to  stepping  onto  a  vessel.  It  also  provided  statistical  information  of  the 
locations,  times,  dates,  and  the  types  of  vessels  that  were  boarded. 

The  logical  design  of  this  prototype  included  the  entities  of  an  operator,  a  vessel, 
and  a  boarding..  To  implement  this  logical  design,  additional  relations  were  added  as 
required  to  provide  the  necessary  intersection  mechanisms,  rules,  forms,  reports  and 
editing  constraints.  All  restrictions  concerning  the  legal  values  of  attributes  and 
interrelational  constraints  are  stated  and  controlled  through  the  use  of  the  R:base  4000 
rules  feature.  Menu  chaining  was  used  to  provide  a  user  friendly  system,  and  menus 
and  programs  were  written  in  and  controlled  through  the  use  of  the  R:base  4000 
command  language.  The  R:base  4000  environment  proved  to  be  very  capable  of 
supporting  this  limited  scale  application. 

This  prototype  was  successfully  demonstrated  in  December  1986.  The  prototype 
demonstrated  the  capability  of  complex  nautical  chart  searching  algorithms  for  use  in 
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making  key  management  decisions  for  "high  incident  areas"  and  "high  incident  times" 
and  the  capability  of  searching  the  database  for  vessels  of  interest  within  a  given  search 
criteria. 

Therefore,  through  the  use  of  the  Law  Enforcement  Information  System 
prototype,  the  question  of  concept  implementability  was  successfully  satisfied. 

B.  SEARCH  AND  RESCUE  INTELLIGENCE  INFORMATION  SYSTEM 

Since  all  Coast  Guard  "production"  database  management  system 
implementations  are  required  to  use  the  Coast  Guard  standard  database  language, 
ReQuest,  another  limited  scale  prototype  was  developed  to  assess  the  feasibility  of 
application  development  within  the  constraints  imposed  by  Coast  Guard  directives. 
The  development  and  testing  of  this  prototype,  the  Search  and  Rescue  (SAR) 
Intelligence  Information  System,  occurred  during  June  1987. 

The  Search  and  Rescue  Intelligence  Information  System  was  programmed  on  the 
Coast  Guard  Standard  Terminal  System  using  the  language  ReQuest,  and  provided 
historical  information  on  vessels,  owners,  and  vessel  search  and  rescue  cases.  It  was 
designed  to  facilitate  the  retrieval  of  detailed  vessel  and  owner  historical  information  to 
better  enable  the  SAR  case  personnel  to  conduct  the  SAR  mission. 

The  entities  of  an  owner,  a  vessel,  and  a  SAR  case  were  represented  within  the 
logical  structure  of  this  prototype.  The  physical  structure  included  an  intersection 
record  to  link  the  owner  and  vessel  entities.  All  attribute  and  interrelational 
constraints  were  specified  and  controlled  through  the  attribute  descriptions.  Forms 
and  reports  were  created  and  stored  as  individual  files,  independent  of  the  database 
structure.  Menus  were  very  limited  as  ReQuest  does  not  allow  menu  chaining  beyond 
the  top  level.  Reports  were  also  very  limited  due  to  the  restnctions  imposed  by 
ReQuest  concerning  multiple  relation  searching  and  reporting.  The  system  was 
designed  to  replicate  the  functionality  of  the  first  prototype  as  much  as  possible, 
however,  the  ReQuest  environment  did  not  allow  this  parallelism. 

C.  INADEQUACIES  OF  REQUEST  FOR  THE  SARELTIS  PROTOTYPE 

Numerous  problems  were  encountered  during  the  development  of  the  second 
prototype  that  were  directly  attributable  to  the  use  of  the  language  ReQuest.  This 
language  is  very  limited  in  scope  and  inflexible  in  nature.  It  does  not  support  any  type 
of  command  language  for  program  or  menu  construction.  To  successfully  utilize  an 
application  developed  within  this  environment,  the  user  must  be  very  knowledgeable 
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and  fully  understand  both  the  language  and  the  application.  Unlike  more  flexible 
programming  environments,  the  details  of  the  language  and  the  underlying  structure  of 
the  application  cannot  be  made  transparent  to  the  user.  Additionally,  the  true 
strengths  of  a  relational  system,  namely  the  ability  to  join  and  search  multiple  tables 
for  reports  or  ad-hoc  queries,  is  absent  in  this  language.  Reports  are  limited  to  the  use 
of  two  tables  at  most,  with  certain  restrictions,  and  information  requested  by  ad-hoc 
queries  may  only  come  from  a  single  predefined  table.  Any  tables  that  result  from  a 
relational  operation,  such  as  a  join,  cannot  then  be  searched  by  an  adhoc  query. 
Therefore,  to  provide  the  desired  searching  functionality  within  the  SARELTIS 
prototype,  the  physical  implementation  would  have  to  consist  of  a  single  relation,  and 
would  be  subject  to  all  the  anomalies  inherent  in  a  first  normal  form  relational 
database  [Ref.  3:  p.  286-290].  Speed  is  also  a  major  problem.  To  accomplish  even  the 
simplest  tasks  required  a  great  deal  of  waiting  time  on  the  part  of  the  user.  Finally,  the 
security  system  provided  by  the  language  did  not  function  properly.  As  a  result  of 
these  constraints  imposed  by  the  ReQuest  language,  it  was .  determined  that  a  different 
environment  would  have  to  be  used  to  successfully  implement  the  SARELTIS 
prototype. 

D.       PROPOSED  LANGUAGE  ENVIRONMENT 

Since  ReQuest  was  determined  to  be  infeasible  as  a  language  environment  for  the 
SARELTIS  project,  the  additional  languages  available  for  the  Coast  Guard  Standard 
Terminal  System  were  examined  to  determine  if  any  were  suitable.  At  present,  the  only 
additional  language  available  for  the  standard  terminal  and  the  CTOS  operating  system 
is  the  R:base  5000  relational  database  environment.  As  this  is  an  updated  and 
enhanced  version  of  the  language  used  for  the  first  prototype,  it  was  determined  that 
R:base  5000  would  be  used  for  the  SARELTIS  project.  Unfortunatly,  the  R:base.5000 
environment  was  not  available  locally  for  the  Coast  Guard  Standard  Terminal  System. 
The  language  was,  however,  available  for  the  IBM  DOS  operating  system.  Therefore, 
the  decision  was  made  to  develop  the  SARELTIS  prototype  utilizing  the  R:base  5000 
environment  within  the  IBM  DOS  operating  system.  This  decision  allowed  the 
development  of  a  fully  capable  product  that  could  ultimately  be  converted  for  use  on 
the  Coast  Guard  Standard  Terminal  System,  and  established  full  technical  feasibility 
for  the  SARELTIS  prototype. 
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IV.  USERS  GUIDE 

A.       INTRODUCTION 

The  following  user's  guide  is  written  assuming  that  its  intended  user  will  be 
utilizing  an  IBM  PC-XT  or  an  IBM  compatible  computer  with  a  5.25  inch  floppy  disk 
drive,  a  minimum  of  640K  internal  memory,  a  hard  disk  (minimum  10M  Bytes),  a 
printer  with  a  normal  size  carriage,  and  using  the  DOS  operating  system.  If  a 
different  hardware  configuration  is  used,  the  user  should  refer  to  the  owner's  manual 
to  see  how  to  load  R:base  5000  and  to  determine  if  the  configuration  will  support  the 
database  system  and  SARELTIS. 

SARELTIS  was  designed  to  assist  Coast  Guard  Group  Monterey  in  automating 
historical  information  and  intelligence  retrieval.  To  this  end,  SARELTIS  provides 
comprehensive  input  and  modify  programs  to  assist  the  user  in  easily  entering 
information  and  correcting/updating  existing  information  in  the  system.  Additionally, 
a  realtime  query  module  allows  users  to  access  system  database  records  quickly  and 
easily  in  order  to  provide  the  most  current  intelligence  and  historical  information  in  a 
timeframe  that  can  be  used  in  operational  missions. 

This  user's  guide  is  an  attempt  to  direct  users  through  the  major  portions  of 
SARELTIS.  A  recent  thesis  by  LCDR  J.  M.  Graham  [Ref.  4]  provided  some  of  the 
framework  and  content  of  this  section.  Due  to  the  actual  size  of  the  SARELTIS 
program  and  the  desire  to  keep  the  user's  guide  short  and  easy  to  understand,  the 
technical  inner  workings  of  each  program  will  not  be  discussed.  Users  desiring  to  know 
more  information  should  consult  the  R:base  5000  technical  manuals  or  contact  one  of 
the  authors  for  additional  clarification.  The  following  topics  will  be  addressed  to  assist 
the  user  with  SARELTIS  operations: 

•  System  Startup  Procedures 

•  Security 

•  Operations 

•  Exiting 

•  Maintenance 
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B.   SYSTEM  STARTUP  PROCEDURES 

1.  Machine  Configuration  Requirements 

Due  to  the  size  of  SARELTIS  (over  800K  in  database  structure  and  over 
500K  in  application  program  modules),  the  user  must  ensure  that  the  machine  is 
properly  initialized  with  a  CONFIG.SYS  file  which  contains  the  following: 

*  Buffers  =  5 

*  Files  =  20 

If  this  file  does  not  exist  or  does  not  contain  the  information  listed  above,  the  user  will 
need  to  build  or  modify  the  CONFIG.SYS  file  accordingly.  The  user  should  consult 
the  DOS  Manual  for  the  specific  procedure  necessary  to  create  or  alter  a 
CONFIG.SYS  file.  Once  the  CONFIG.SYS  file  has  been  properly  created/modified, 
the  computer  should  be  reset/booted  to  allow  this  new  machine  configuration  to  be 
installed.  To  reset  the  system,  the  user  presses  the  following  three  keys 
simultaneously:  <CTRL>  <ALT>  <DEL>.  After  the  machine  has  been  reset, 
the  computer  will  ask  the  user  for  the  current  date  and  current  time.  It  is  very 
important  that  the  user  enter  the  correct  time  and  date  into  the  system  as  the  system 
time  and  date  are  used  by  many  application  program  modules.  After  each  date  and 
time  entry,   the  user  should  press  the  <  ENTER  >  key. 

2.  Initial  Program  Loading 

If  all  has  proceeded  satisfactorily  from  the  above  section,  the  screen  should 
display  the  following  system  prompt  indicating  that  you  are  working  from  the  hard 
disk:  "C:>". 

Use  the  DOS  MKDIR  (make  directory)  command  to  create  a  directory  to 
store  the  R:base  5000  programs  by  typing  "MKDIR  C:\R5K"  at  the  system  prompt. 
Next,  use  the  DOS  CHDIR  (change  directory)  command  to  change  the  working 
directory  to  the  newly  created  R:base  5000  directory  by  typing  "CHDIR  C:\R5K"  at 
the  system  prompt.  At  this  point  you  are  ready  to  load  the  R:base  5000  software  if  it 
is  not  already  been  installed.  To  load  the  R:base  5000  software  [Ref.  5:  p.  1.3  -  1.6],  do 
the  following: 

1.  Insert  one  of  the  R:base  5000  disks  into  floppy  drive  a. 

2.  Copy  all  files  from  the  disk  to  the  newly  created  R:base  5000  directory  by 
entering  "COPY  *.*". 

3.  When  all  of  the  files  have  been  copied  from  the  floppy  disk  to  the  R:base  5000 
directory  on  your  hard  disk,  remove  the  floppy  disk  from  the  floppy  drive. 
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4.     Repeat  steps  2  through  4  until  all  R:base  5000  floppy  disks  have  been  copied  to 
your  hard  disk. 

After  you  have  loaded  the  R:base  5000  database  software,  you  are  now  ready 

to  load  the  SARELTIS  application.    SARELTIS  has  been  designed  to  operate  from  its 

own  directory  (DBDIR)  which  the  user  must  create.    To  create  another  directory,   use 

the  DOS  MKDIR  command  and  type  "MKDIR  C:\DBDIR".    Next,    you  must  copy 

the  SARELTIS  database  and  its  application  and  ancillary  programs  to  the  DBDIR 

directory. 

The  SARELTIS  database  is  stored  on  4  diskettes  labeled: 

SARELTIS  1 

SARELTIS  2 

SARELTIS  3 

SARELTIS  4 
The  application  programs  are  stored  on  2  diskettes  labeled: 

SARELTIS  APPLICATIONS  1 

SARELTIS  APPLICATIONS  2 
The  source  code  for  the  applications  programs  are  stored  on  2  diskettes  labeled: 

SARELTIS  APPLICATIONS  SOURCE  CODE  1 

SARELTIS  APPLICATIONS  SOURCE  CODE  2 
The  application  program  source  code  disks  are  provided  for  maintenance  purposes 
only.     The'  ancillary    programs    are    stored    on    1    diskette    labeled    SARELTIS 
ANCILLARY  PROGRAMS.  To  load  SARELTIS,  do  the  following: 
.1.     Insert  SARELTIS  1  into  the  A:  floppy  drive. 

2.  Type  the  following  DOS  command:  "RESTORE  a:  \DBDIR".    You  will  be 
prompted  by  the  system  to  load  SARELTIS  2,  3,  and  4. 

3.  Insert  SARELTIS  APPLICATIONS  1  into  the  A:  floppy  drive. 

4.  Type  the  following  DOS  command:  "RESTORE  a:  \DBDIR  ".    You  will  be 
prompted  by  the  system  to  load  SARELTIS  APPLICATIONS  2. 

5.  Insert  the  SARELTIS  ANCILLARY  PROGRAMS  floppy  disk  into  the  A: 
floppy  drive. 

6.  Type  the  following  DOS  command:  "COPY  a:*.*". 

You  have  now  loaded  the  SARELTIS  database  and  its  application  programs  and  are 
now  ready  to  start  the  program.  To  start  SARELTIS,  enter  the  following  at  the 
system  prompt:  "SARSYS".  This  will  automatically  take  you  to  a  security  module  that 
will  ask  for  a  user  name  and  password.    The  default  user  name  is  "SYSOP"  and  the 
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default  user  password  is  "SARSYS".    If  you  wish  to  protect  the  system,    see  the  next 
section  on  security. 

C.       SARELTIS  SECURITY 

One  of  SARELTIS'  ancillary  programs  is  called  "STARTUP.BIN".  This 
program  is  a  compiled/ binary  program  which  prints  the  initial  SARELTIS  title  screen 
and  provides  the  security  module  to  gain  access  to  the  system.  As  discussed  in  the 
previous  section,  the  system  has  a  default  user  name  and  password.  These  can  be 
changed  very  easily  by  the  user  (it  is  recommended  that  the  user  become  somewhat 
familiar  with  R:base  5000  and  SARELTIS  before  changing  the  security).  Using  a  text 
editor  or  a  word  processor  in  the  non-document  mode,  open  the  ancillary  program 
"STARTUP. PRG".  Approximately  halfway  through  the  program,  you  will  find  the 
following  command: 

"if  username  eq  "SYSOP"  and  userpass  eq  "SARSYS"  then" 
By  changing  "SYSOP"  to  another  user  name  and  altering  "SARSYS"  to  another 
password,  you  can  protect  your  own  system.  Once  you  have  changed  the  user  name 
and  password,  ensure  that  you  write  it  down  and  store  it  in  a  safe  place.  To  activate 
the  new  security  password,  you  must  recompile  "STARTUP.PRG".  To  recompile 
STARTUP. PRG,  do  the  following: 

1.  At  the  system  prompt,  type  "RCOMPILE"  to  run  the  R:base  5000  program 
compiler.  The  system  will  then  display  the  RCOMPILE  menu  listing  eight 
possible  options. 

2.  Select  the  option  to  "Convert  an  ASCII  command  file  to  a  binary  command 
file"  by  entering  a  "I".  The  cursor  should  highlight  the  "(1)"  next  to  the  desired 
menu  option. 

3.  Press  the  <  ENTER  >  key  to  execute  the  menu  option. 

4.  The  system  will  ask  you  to  enter  the  name  of  the  ASCII  command  file  to 
convert.   Enter  "STARTUP.PRG"  and  press  the  <  ENTER  >  key. 

5.  RCOMPILE  will  then  respond  asking  for  the  name  of  the  backup  file.  Since  we 
do  not  need  a  backup  of  this  file,  press  the  <  ENTER  >  key. 

6.  The  system  will  then  ask  for  the  name  of  the  binary  command  file  that  you  wish 
to  create.  In  the  space  provided,  enter  "STARTUP.BIN"  and  press  the 
<  ENTER  >  key.  The  system  will  now  re-compile  the  program.  At  the 
completion  of  the  compilation,  RCOMPILE  will  return  you  to  its  menu  screen. 
Enter  an  "8"  and  press  <  ENTER >  to  exit  from  the  RCOMPILE  program. 

You  have  now  changed  the  security  on  the  system  and  the  new  user  name  and 

password  have  been  activated.    To  ensure  that  the  system  is  fully  secure,   remove  the 
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"STARTUP.PRG"  file  by  typing  the  following  DOS  command:  "ERASE 
STARTUP. PRG".  This  will  prevent  any  unauthorized  users  from  discovering  the  new 
security  password  by  merely  typing  out  the  "STARTUP.PRG"  file.  If  you  wish  to  alter 
the  security  password  after  this  point,  you  must  copy  the  "STARTUP.PRG"  file  to  the 
hard  disk  from  the  SARELTIS  APPLICATIONS  SOURCE  floppy  disk. 

D.      SARELTIS  OPERATIONS 

1.  Menu  System  Overview 

The  man-machine  interface  for  SARELTIS  is  a  series  of  menus.  Beginning 
with  the  SARELTIS  Master  Menu  (Figure  4.1),  the  user  can  branch  to  a  desired 
function.  Each  menu  allows  the  user  to  return  to  the  previous  menu.  All  menu 
selections  are  grouped  by  functional  area  to  provide  the  user  with  a  more  efficient 
operating  environment.  Examples  of  the  remaining  menu  screens  are  presented  in 
Figures  4.2  through  4.4  and  Figures  4.7  through  4.13  Detailed  functional  descriptions 
of  each  menu  option  can  be  reviewed  by  examining  Appendix  D. 

2.  Starting  SARELTIS 

To  start  SARELTIS  and  to  get  to  the  main  menu  screen  requires  the  user  to 
type  "SARSYS"  at  the  system  prompt  and  pressing  the  <  ENTER >  key.  As  described 
in  the  security  section  above,  the  user  must  supply  the  correct  user  name  and 
password  in  order  to  gain  access  to  the  system.  Once  the  proper  user  name  and 
password  are  entered,  the  system  is  automatically  initialized  and  the  SARELTIS 
Master  Menu  appears.  The  user  is  free  to  select  any  option  by  either  moving  the 
cursor  up/ down  (using  the  arrow  keys  on  the  numeric  pad)  or  by  typing  the  actual 
number  of  the  option  desired  to  be  executed.  Once  a  selection  is  made,  pressing  the 
<  ENTER  >  key  will  execute  the  option.  The  user  will  then  be  presented  with  another 
menu  screen  or  an  actual  function  will  be  performed.  Short  descriptions  of  each  menu 
option  are  presented  in  the  following  section. 

3.  SARELTIS  Menu  Options 

a.  SARELTIS  Master  Menu  (Figure  4.1) 

Selecting  option  (1),  INPUT  INFORMATION,  displays  the  SARELTIS 
INPUT  MENU  (Figure  4.2).  Option  (2)  calls  the  SARELTIS  MODIFY  MENU 
(Figure  4.3).  The  real-time  query  menu,  QUERY  INFORMATION  MENU  (Figure 
4.4),  is  displayed  upon  selection  of  choice  (3).  The  REPORTS  MAIN  MENU  (Figure 
4.7)  is  called  when  option  (4)  is  chosen.  Option  (5)  provides  the  user  with  the 
UTILITIES    MENU    (Figure    4.13).     User-designed    queries    or    reports    may    be 


37 


constructed  by  selecting  option  (6),  AD  HOC  QUERIES,  which  returns  the  user  to 
the  R:base  5000  command  prompt  "R> ".  To  exit  SARELTIS,  the  user  selects  option 
(7),   EXIT  SARELTIS. 


SARELTIS  MASTER  MENU 

(1) 

INPUT  INFORMATION 

(2) 

MODIFY  INFORMATION 

(3) 

QUERY  INFORMATION 

(4) 

REPORTS 

(5) 

UTILITIES 

(6) 

AD  HOC  QUERIES 

(7) 

EXIT  SARELTIS 

Figure  4.1     SARELTIS  Master  Menu. 

b.  Input  Information  Menu  (Figure  4.2) 

The  user  is  provided  with  eight  options  to  enter  data  into  SARELTIS.  The 
user  has  the  choice  of  entering  SAR  information  alone  by  selecting  option(l)  or 
entering  SAR  information  with  boarding  information  by  choosing  option  (2).  Option 
(3)  allows  the  user  to  enter  in  multiple  SAR  units.  Entering  in  boarding  information 
alone  is  performed  by  choosing  option  (4).  Selecting  option  (5)  will  allow  the  user  to 
enter  in  additional  vessel  owners.  Vessel  intelligence  and  personnel  intelligence  are 
entered  into  the  system  by  selecting  options  (6)  or  (7).  To  return  to  the  SARELTIS 
MASTER  MENU,  the  user  selects  option  (8). 

c.  SARELTIS  Modify  Menu  (Figure  4.3) 

SARELTIS  data  can  be  modified  using  one  of  the  nine  available  options. 
Option  (1)  allows  the  user  to  update  historical  SAR  information.  By  selecting  option 
(2),  existing  boarding  information  can  be  modified.  Vessel  information  may  be 
changed  by  selected  option  (3).  Demographic  data  maintained  on  vessel  owners  and 
operators  can  be  altered  by  choosing  option  (4).  If  the  user  desires  to  change  the  name 
of  an  owner  or  an  operator  and  this  individual  is  both  an  owner  and  an  operator,  the 
name  must  be  changed  in  both  places.    Information  regarding  Group  Monterey  SAR 
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SARELTIS  INPUT  MENU 

(1)  INPUT  SAR  INFORMATION  (NO  BOARDING) 

(2)  INPUT  SAR  INFORMATION  WITH  BOARDING 

(3)  INPUT  MULTIPLE  SAR  UNITS 

(4)  INPUT  BOARDING  INFORMATION 

(5)  INPUT  MULTIPLE  VESSEL  OWNERS 

(6)  INPUT  VESSEL  INTELLIGENCE 

(7)  INPUT  PERSONNEL  INTELLIGENCE 

(8)  RETURN  TO  MASTER  MENU 


Figure  4.2     SARELTIS  Input  Menu. 

units  can  be  changed  by  selecting  option  (5).  Options  (6)  and  (7)  allow  the  user  to 
manipulate  vessel  and  personnel  intelligence  information.  The  vessel  HIN  may  be 
changed  by  selecting  option  (8)  if  it  was  previously  entered  incorrectly.  To  return  to 
the  MASTER  MENU,  the  user  selects  option  (9). 


SARELTIS  MODIFY  MENU 

(1)  MODIFY  SAR  INFORMATION 

(2)  MODIFY  BOARDING  INFORMATION 

(3)  MODIFY  VESSEL  INFORMATION 

(4)  MODIFY  OWNER/OPERATOR  INFORMATION 

(5)  MODIFY  SAR  UNIT  INFORMATION 

(6)  MODIFY  VESSEL  INTELLIGENCE 

(7)  MODIFY  PERSONNEL  INTELLIGENCE 

(8)  MODIFY  VESSEL  HIN 

(9)  RETURN  TO  MAIN  MENU 


Figure  4.3    SARELTIS  Modify  Menu. 
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</.  SARELTIS  Query  Menu  {Figure  4.4) 

The  real-time  query  capability  of  SARELTIS  is  executed  through  the 
invocation  of  this  menu.  By  selecting  Option  (1),  the  user  can  perform  a  vessel  query 
based  on  vessel  Hull  Identification  Number  (HIN),  vessel  name,  vessel  number,  or 
vessel  official  number.  The  query  module  will  search  the  entire  vessel  table  attempting 
to  find  potential  matches  to  the  user's  selection  criteria.  Figure  4.5  shows  the  chaining 
of  searches  through  the  database  when  selecting  the  vessel  query  option.  Similarly, 
the  user  can  search  through  the  database  using  a  person's  last  name  and  first  name  by 
choosing  option  (2).  The  query  program  will  fmd  all  potential  matches  and  ask  the 
user  to  select  the  correct  individual  to  perform  an  intelligence/ history  check.  Figure  4.6 
shows  the  chaining  of  searches  through  the  database  for  the  personnel  query  option. 
To  return  to  the  SARELTIS  MASTER  MENU,   the  user  selects  option  (3). 


SARELTIS  QUERY  MENU 

(1)  VESSEL  QUERY 

(2)  PERSONNEL  QUERY 

(3)  RETURN  TO  MAIN  MENU 


Figure  4.4    SARELTIS  Query  Menu. 

e.  SARELTIS  Reports  Main  Menu  (Figure  4.7) 

Reports  in  SARELTIS  are  broken  down  into  mission/ functional  area 
groups  that  can  be  selected  from  the  Reports  Vlain  Menu.  This  menu  calls  other  sub- 
menus which  represent  the  available  choices  within  the  specific  mission/ functional  area. 
Selecting  option  (1)  will  allow  the  user  the  display  the  INTELLIGENCE  REPORTS 
MENU  (Figure  4.8).  Option  (2)  will  invoke  the  BOARDING  REPORTS  MENU 
(Figure  4.9).  The  SAR  REPORTS  MENU  (Figure  4.10)  is  executed  by  choosing 
option  (3).  Option  (4)  will  call  the  VESSEL  REPORTS  MENU  (Figure  4.11).  By 
selecting  option  (5),  the  user  will  see  the  available  choices  from  the  PERSONNEL 
REPORTS  MENU  (Figure  4.12).  Detailed  descriptions  of  each  report  function  can  be 
found  in  Appendix  D.  To  return  to  the  "MASTER  MENU,  the  user  selects  option  (6). 
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Figure  4.5    Vessel  Query  Search  Chain. 
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Figure  4.6    Personnel  Query  Search  Chain. 
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SARELTIS  REPORTS  MAIN  MENU 

(1) 

INTELLIGENCE  REPORTS 

(2) 

BOARDING  REPORTS 

(3) 

SAR  REPORTS 

(4) 

VESSEL  REPORTS 

(5) 

PERSONNEL  REPORTS 

(6) 

RETURN  TO  MAIN  MENU 

Figure  4.7    SARELTIS  Reports  Main  Menu. 


SARELTIS  INTELLIGENCE  REPORTS  MENU 

(1)  VESSEL  INTELLIGENCE  ANALYSIS  (EPIC) 

(2)  VESSEL  PROFILE  FOR  INDIVIDUAL  VIOLATIONS  ANALYSIS 

(3)  PERSONNEL  INTELLIGENCE  SUMMARY 

(4)  RETURN  TO  REPORTS  MENU   . 


Figure  4.8    SARELTIS  Intelligence  Reports  Menu. 

f.   SARELTIS  Utilities  Menu  {Figure  4.13) 

From  the  Utilities  Menu,  the  user  can  initialize  SARELTIS  by  selecting 
option  (1).  This  program  is  automatically  invoked  at  the  start  of  any  SARELTIS 
session  and  is  also  executed  upon  exiting  the  system.  Option  (2)  will  pack  or  compress 
the  database  to  more  efficiently  use  the  existing  limited  hard  disk  space.  It 
recommended  that  the  user  perform  a  pack  of  the  database  at  least  once  per  month. 
Prior  to  executing  a  pack  of  the  database,  the  user  should  make  a  backup  copy  of  the 
SARELTIS  database  in  the  event  that  an  unanticipated  error  should  occur  during  the 
packing  process.  Option  (3)  will  display  the  procedures  for  backing  up  the  database. 
In  order  to  backup  the  database,  the  user  must  exit  from  SARELTIS  (via  option  (7) 
on  the  MASTER  MENU)  and  execute  a  DOS  BATCH  File  located  on  the  hard  disk 
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SARELTIS  BOARDING  REPORTS  MENU 

(1)  VIOLATION/UNSAFE  CONDITION  FREQUENCY 

(2)  BOARDINGS  SUMMARY  LISTING 

(3)  CME  DECALS:  ANALYSIS  OF  VESSELS  BOARDED 

(4)  LARGE  SCALE  AREA  BOARDING  LOCATION  ANALYSIS 

(5)  SMALL  SCALE  AND  COASTLINE  AREA  BOARDING 
LOCATION  ANALYSIS 

(6)  SMALL  BOAT  OPERATIONS  AREA  BOARDING  LOCATION 
ANALYSIS 

(7)  TIME  OF  DAY  BOARDING  CASE  ANALYSIS 

(8)  RETURN  TO  REPORTS  MENU 


Figure  4.9    SARELTIS  Boarding  Reports  Menu. 


SARELTIS  SAR  REPORTS  MENU 

(1)        ANALYSIS  OF  IMMEDIATE  DISTRESS  SAR  CASES     . 

(2)-       SMALL  SCALE  AND  COASTLINE  AREA  SAR  CASE  LOCATION 
ANALYSIS 

(3)  LARGE  SCALE  AREA  SAR  CASE  LOCATION  ANALYSIS 

(4)  SMALL  BOAT  OPERATIONS  AREA  SAR  CASE  LOCATION 
ANALYSIS 

(5)  SAR  TABLE  SUMMARY  LISTING 

(6)  SAR  UNIT  TIME  EXPENDED  DURING  SAR  CASES 

(7)  DAY  OF  THE  WEEK,   MONTH,  AND  YEAR  ANALYSIS 

(8)  SAR  CASE  ANALYSIS:   DAYTIME/NIGHTTIME  FREQUENCY 

(9)  RETURN  TO  REPORTS  MENU 


Figure  4.10    SARELTIS  SAR  Reports  Menu. 

called  "BACKDBMS.BAT".  Since  this  backup  will  take  a  minimum  of  six  floppy  disks, 
the  user  should  ensure  that  at  least  six  floppy  disks  have  been  formatted  prior  to 
executing  this  program.   To  format  a  floppy  disk,  type  the  command  "PATH   UTIL" 
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SARELTIS  VESSEL  REPORTS  MENU 

(1)  VESSEL  SUMMARY  LISTING 

(2)  VESSEL  —  OWNERS  OF  SPECIFIED  VESSELS 

(3)  VESSEL  ---  OPERATORS  OF  SPECIFIED  VESSELS 

(4)  RETURN  TO  REPORTS  MENU 


Figure  4. 1 1     SARELTIS  Vessel  Reports  Menu. 


SARELTIS  PERSONNEL  REPORTS  MENU 

(1)  OWNERS  OF  VESSELS  SUMMARY  LISTING 

(2)  OWNER  ---  VESSELS  WHICH  ARE  OWNED  BY  SPECIFIED 
OWNERS 

(3)  OPERATORS  OF  VESSELS  SUMMARY  LISTING 

(4)  OPERATORS  ---  VESSELS  WHICH  ARE  OPERATED  BY 
•  SPECIFIED  OPERATORS 

(5)  RETURN  TO  REPORTS  MfeNU 


Figure  4.12     SARELTIS  Personnel  Reports  Menu. 

at  the  system  prompt  "C:  >  ",  then  type'FORMAT  A:"  at  the  next  system  prompt 
"C:  >  ".  The  system  will  prompt  the  user  to  insert  the  disks  to  be  formatted  into  floppy 
drive  A:  and  will  indicate  when  the  process  has  been  completed.  After  ensuring  that 
the  user  has  prepared  enough  formatted  floppy  disks,  the  user  is  ready  to  execute  the 
batch  file.  The  user  should  type  "BACKDBMS"  at  the  system  prompt  "C:>"  and 
press  the  <  ENTER  >  key  to  execute  the  program.  Follow  the  system  prompts  to 
remove  and  insert  floppy  disks.  When  the  database  has  been  backed  up  the  program 
will  automatically  return  the  user  to  SARELTIS.  In  the  unlikely  event  that  the 
database  has  "crashed"  (e.g.  nothing  seems  to  work  as  advertised),  the  user  may 
recover  the  database  from  the  last  back-up.  Similar  to  the  back  up  process,  option  (4) 
details  the  specific  procedures  in  order  to  recover  the  database.  Basically,  the  user 
must  exit  SARELTIS  and  at  the  system  prompt  type  "RESTDBMS"  and  press  the 
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<ENTER>  key.  This  executes  the  DOS  BATCH  File  "RESTDBMS.BAT".  The  user 
should  follow  any  instructions  that  the  computer  displays  on  the  screen.  When  the 
database  has  been  fully  recovered,  the  program  will  automatically  return  the  user  to  the 
SARELTIS  system. 


SARELTIS  UTILITIES  MENU 

(1)  INITIALIZE  DATABASE 

(2)  PACK  DATABASE 

(3)  BACKUP  DATABASE 

(4)  RESTORE  DATABASE 

(5)  RETURN  TO  MAIN  MENU 


Figure  4.13     SARELTIS  Utilities  Menu. 


E.  EXITING  SARELTIS 

To  exit  SARELTIS  and  return  to  the  computer's  operating  system,  select  option 
(7)  from  the  SARELTIS  Main  Menu.  This  will  automatically  close  all  open  files  and 
remove  any  temporary  relations/tables  and  variables  that  have  been  created  during  the 
operation  of  the  system.  The  user  should  not  exit  the  system  by  merely  turning  the 
computer  off.  Data  could  be  lost  or  incorrectly  entered  upon  losing  system  power. 
Once  SARELTIS  has  completed  closing  all  files  and  removing  temporary  tables  and 
variables,  it  will  return  the  user  to  the  system  prompt:  "C:  > ".  Once  the  system 
prompt  is  displayed  and  the  computer  is  no  longer  needed,  the  power  may  safely  be 
turned  off  without  danger  to  the  SARELTIS  database. 

F.  SARELTIS  MAINTENANCE 

Maintenance  to  the  SARELTIS  application  programs  should  not  be  undertaken 
by  the  casual  user.  Before  performing  any  alterations  to  the  source  code,  the  user 
should  invest  considerable  time  and  effort  in  understanding  the  proper  techniques  of 
software  programming  and  documentation. 

Due  to  the  high  degree  of  interdependencies  between  the  program  modules,  the 
user  must  be  aware  that  a  seemingly  minor  alteration  could  have  far-reaching  unseen 
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effects.  The  system  may  appear  to  operate  correctly,  but  in  reality,  the  data  being 
stored,  modified,  or  printed  could  be  inaccurate  or  even  lost. 

Users  desiring  to  modify  the  source  code  should  have  a  thorough  knowledge  of 
relational  database  structures,  structured  programming  techniques,  and  the  R:base 
5000  command  language.  Prior  to  making  any  changes  the  user  should  ensure  that  the 
database  is  backed  up  and  that  copies  of  the  applications  programs  have  been  made  in 
the  event  that  the  modifications  do  not  function  properly.  Above  all,  the  user  should 
NEVER  attempt  to  make  modifications  to  the  source  code  without  outside  expert 
consultation  and  assistance. 

Due  to  the  size  and  complexity  of  SARELTIS,  the  authors  recognize  that  errors 
will  be  discovered.  This  will  require  that  the  source  code  or  database  structure  will 
need  to  be  modified.  A  knowledgeable  user  can  use  the  source  code  listings  found  in 
Appendices  E  through  P  to  assist  in  the  understanding  and  modification  of  the 
program  modules. 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 

A.  SARELTIS  RESULTS 

SARELTIS  was  originally  conceived  to  merely  replace  Group  Monterey's 
corporate  knowledge  base  and  provide  access  to  historical  information  to  assist 
boarding  officers  and  Search  and  Rescue  Coordinators.  What  has  evolved  is  a  system 
with  far  more  capabilities  than  originally  designed.  The  concept  of  providing  only 
summarized  frequency  data  was  transformed  to  providing  the  capability  to  perform 
limited  decision  support  functions.  The  system  still  produces  the  required  standard 
statistical  reports  but  also  provides  vessel  profiles  of  potential  violators.  These  profiles 
examine  individual  violation  codes  and  search  the  historical  boarding  information  to 
determine  by  violation  the  vessel  type,  use,  hull  material,  propulsion,  engine 
compartment  type,  fuel  compartment,  length,  and  year  of  construction  of  vessels 
found  in  violation  of  the  specific  code. 

The  system  also  provides  SAR  and  ELT  planning  by  exarnining  "high  incident 
times"  and  "high  incident  areas".  By  reviewing  SAR  historical,  information,  SAR 
Coordinators  can  better  plan  for  crew  augmentation  or  additional  floating  or  land 
resources.  Additionally,  by  examining  where  SAR  cases  and  ELT  missions  have 
occurred,  Group  Monterey  can  better  plan  where  to  strategically  locate  or  send  their 
floating  units. 

As  discussed  in  Chapter  II,  the  Coast  Guard  has  been  brought  under  scrutiny 
for  potential  harassment  of  the  boating  public  by  repetitively  boarding  the  same  vessel 
during  a  very  small  time  interval.  SARELTIS  will  provide  the  means  to  ascertain 
whether  a  particular  vessel  has  been  boarded  in  the  operational  area,  when  the  vessel 
was  lasted  boarded,  and  what  violations,  if  any,  were  discovered. 

One  of  the  most  important  aspects  of  SARELTIS  is  the  capability  of  providing 
real-time  information  and  intelligence  to  boarding  officers  and  SAR  Coordinators. 
With  timely  information,  boarding  officers  can  better  understand  and  recognize 
potential  dangerous  situations  prior  to  going  on  board  a  vessel. 

B.  CONCLUSIONS 

This  thesis  was  the  first  step  toward  providing  better  and  more  timely 
information  to  Coast  Guard  operational  units.  Although  SARELTIS  has  not  been  put 
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into  production  at  Group  Monterey,  it  will  be  implemented  there  in  September  1987. 
It  is  anticipated  that  its  use  will  stimulate  further  interest  in  the  SARELTIS  concept 
and  create  other  needs  not  previously  identified  nor  programmed  in  the  first  version. 

C.       SUGGESTIONS  FOR  FURTHER  RESEARCH 

This  thesis  successfully  analyzed,  designed,  and  implemented  an  automated 
intelligence  system  to  assist  small  Coast  Guard  units  similar  to  Group  Monterey.  The 
robustness  of  the  system  has  been  demonstrated  in  its  preparation  of  over  45  standard 
reports  for  use  by  the  small  unit  to  assist  in  recordkeeping,  intelligence  reporting,  and 
resource  planning.  Although  not  originally  conceived,  a  limited  decision  support 
capability  was  built  into  the  system.  This  seems  to  be  one  of  the  potential  areas  for 
further  research.  The  reports  designed  in  SARELTIS  are  by  no  means  complete.  It  is 
envisioned  that  with  the  proper  tools  the  SARELTIS  database  could  be  used  as  the 
basis  for  a  comprehensive  decision  support  system. 

Another  area  of  potential  research  that  was  beyond  the  scope  of  this  thesis  was 
the  interfacing  to  a  central  database.  By  telecommunicating  the  data  collected  by  the 
system  to  a  Coast  Guard  district  office  or  area  office,  the  SARELTIS  concept  can  be 
transported  to  a  larger  geographic  area.  Terminals  could  be  connected  via  MODEM 
to  this  online  database  to  provide  the  most  up-to-date  information  possible. 

Data  entry  into  the  system  could  also  be  improved.  If  SARELTIS.  could 
automatically  receive  intelligence  information  from  local  or  federal  law  enforcement 
agencies,  this  would  eliminate  the  necessity  to  manually  enter  the  information  via  the 
computer  keyboard.  Additionally,  if  an  optical  mark  boarding  form  was  used  by 
boarding  officers,  manual  data  entry  could  also  be  reduced  with  the  aid  of  an  optical 
mark  reader. 
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APPENDIX  A 
LOGICAL  MODELS 

A  Data  Flow  Diagram  (DFD)  is  a  method  to  graphically  represent  the  logical 
functions  of  a  system.  Through  the  use  of  this  very  simple  modeling  technique,  the 
analyst  and  user  can  examine  the  functions  and  interfaces  of  the  existing  system  and 
easily  define  the  components  required  within  the  proposed  new  system.  These 
diagrams  serve  to  summarize  the  processes  and  the  flow  of  data  within  the  logical 
model  of  the  current  methodology  and  to  depict  the  functions  of  the  proposed  system 
independent  of  physical  implementation  details. 

Within  the  diagrams,  processes  or  activities  are  depicted  as  uniquely  identified 
circles,  and  the  flow  of  data  is  represented  by  arrows.  Rectangles  indicate  a  source  or 
destination  for  some  type  of  information  or  product.  The  number  included  within  a 
process  circle  uniquely  identifies  that  process  and  serves  as  a  means  for  indicating  the 
subprocesses  of  a  higher  level  process.  Higher  level  processes  have  single  digit 
numbers,  while  a  subprocess  number  consists  of  the  parent  number(s)  and  the 
subprocess  number.  This  numbering  convention  allows  the  subfunctions  of  a  higher 
level  function  to  be  easily  identified.   [Ref.  2:  p.  282]. 

A  second  tool  that  is  very  useful  for  the  logical  modeling  of  a  database  system  is 
the  Bachman  diagram.  This  diagram  depicts  the  entities  that  are  present  within  the 
system,  represented  as  boxes,  and  their  interrelationships,  which  are  depicted  by  arrows 
between  the  entities.  Representing  the  logical  structure  of  the  proposed  database,  this 
diagram  sets  a  foundation  for  the  development  of  the  physical  database  structure 
[Ref.  3:  p.  39]. 

Within  this  appendix,  the  existing  search  and  rescue  and  law  enforcement  system 
processes  are  depicted  by  Figures  A.l  through  A.4,  the  proposed  new  systems  as 
Figures  A.5  through.  A.  10,  and  the  combined  database  logical  structure  as  Figure  A.ll. 
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Figure  A.l     Existing  SAR  System  -  Level  0. 
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Figure  A. 2    Existing  SAR  System  -  Level  1, 
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Figure  A. 3     Existing  ELT  System  -  Level  0. 
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Figure  A.4    Existing  ELT  System  -  Level  1. 
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Figure  A. 5    Proposed  SAR  System  -  Level  0. 
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Figure  A. 6    Proposed  SAR  System  -  Level  1. 


56 


<  = 


^  < 


-J  OQ 


^  <  o 

z  *  £ 

^  «  5 

z 


*S2 
22i 


-  2 


a: 

O 

o 


<  3 

I* 


Figure  A. 7 


SAR  System  SARELTIS  Automation  Boundary. 
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Figure  A. 8    Proposed  ELT  System  -  Level  0. 
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Figure  A.9     Proposed  ELT  System  -  Level  1. 
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Figure  A.  10    ELT  System  SARELTIS  Automation  Boundary. 
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Figure  A.  1 1     Bachman  Diagram  of  Proposed  System. 
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APPENDIX  B 
SYSTEM  REPORTS 

To  assist  Coast  Guard  Group  Monterey  with  operations,  planning  and  report 
generation,  the  SARELTIS  prototype  provides  numerous  hard  copy  reports. 
Procedures  utilized  to  generate  these  reports  are  discussed  in  Chapter  IV,  the  System 
User's  Guide.  Examples  of  all  reports  produced  by  the  prototype  are  displayed  in  this 
appendix  as  Figures  B.l  through  B.45.  Table  3  provides  a  reference  for  the 
correspondence  between  the  figures  included  in  this  appendix  and  the  report  names 
called  within  the  program  listing. 


62 


US  Coast  Guard  Group  Monterey 
Vessel  Boarding  Summary  Listing 
For  the  Period:  01/01/1980  -  01/01/1988 


Vessel 
HIN 


Date:  08/15/1987 
Page :     1 


111111111111  01/15/1980   mon   5:00:00a  bm3    smith 
mry-001      37.00  N   121.52  W         CG  Group  Monterey 

Monterey  Bay     Monterey      Monterey 
WPNS-  3  POB-   8  ADLT-   6  CHLD-   2  OWST-1  S/R:   6:00:00a  S/S 


11  36268 
CA 
7:00:00p 
V54  V55  V56  V57  V58  V59  V60  V61  V62  V63  V64  V65  V66  V67  V63 


jj    —    X    —    X~    X-    x    —    x~ 

.  U69  U70  U71  U72  U73  U74  U75  U76  U77  U78  U79 
---x-x-x-x- 

owner/operator  was  abusive  towards  boarding  officer 


x 


222222222222 
mry-002 


02/25/1981   fri   7:30:00p  bm2    adams 

36.29  N   122.46  W         CG  Group  Monterey    11  36268 
Monterey  Bay     Monterey      Monterey        CA 
WPNS-  1  POB-  12  ADLT-  12  CHLD-   0  OWST-1  S/R:   6:00:00a  S/S:   7:00:00p 
V54  V55  V56  V57  V58  V59  V60  V61  V62  V63  V64  V65  V66  V67  V63 

X       X       y       X       X       ™       mm  —       —       —       —       —       —       V" 

U69  U70  U71  U72  U73  U74  U75  U76  U77  U78  U79 
-------x-x- 


333333333333 
mry-003 

WPNS- 


03/18/1983   mon  12:00:00p  bm2    adams 

36.28  N   123.06  W         CG  Group  Monterey    11  36268 
Monterey  Bay     Monterey      Monterey        CA 
1  POB-  12  ADLT-  12  CHLD-   0  OWST-1  S/R:   6:00:00a  S/S:   7:00:00p 
V54  V55  V56  V57  V58  V59  V60  V61  V62  V63  V64  V65  V66  V67  V68 
XX    —    xx    —    —    xx    —    —    XX    —    X 
U69  U70  U71  U72  U73  U74  U75  U76  U77  U78  U79 

X--XX--X--- 

belligerent  operator 


Figure  B.l     Boarding  Listing. 
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US  Coast  Guard  Group  Monterey 
Boarding  Location  Frequency 
For  Major  Grid  Areas 
During_Period  01/01/1980  -  01/01/1988 

Total  Boardings  -         8 

Date  -  08/15/1987  Page  -  1 

Percentage 
Grid  Area    North     South      East      West      Total     Total 
Designation  Boundary  Boundary  Boundary  Boundary  Occurrences  Boardings 


A 

37.30 

37.00 

122.30 

123.00 

0 

0.00  % 

.  B 

37.30 

37.00 

122.00 

122.30 

0 

0.00  % 

C 

37.00 

36.30 

123.00 

123.30 

0 

0.00  % 

D 

.37.00 

36.30 

122.30 

123.00 

0 

0.00  % 

E 

37.00 

36.30 

122.00 

122.30 

0 

0.00  % 

F 

37.00 

36.30 

121.30 

122.00 

1 

12.50  % 

G 

36.30 

36.00 

123.00 

123.30 

1 

12.50  % 

H 

36.30 

36.00 

122.30 

123.00 

2 

25.00  % 

I 

36.30 

36.00 

122.00 

122.30 

1 

12.50  % 

J 

36.30 

36.00 

121.30 

122.00 

0 

0.00  % 

K 

36.00  • 

35.30 

122.30 

123.00 

0 

0.00  % 

L 

36.00 

35.30 

122.00 

122.30 

0 

0.00  % 

M 

36.00 

35.30 

121.30 

122.00 

0 

0.00  % 

N 

36.00 

35.30 

121.00 

121.30 

0 

0.00  % 

0 

35.30 

35.00 

122.30 

123.00 

0 

0.00  % 

P 

35.30 

35.00 

122.00 

122.30 

1 

12.50  % 

Q 

35.30 

35.00 

121.30 

122.00 

0 

0.00  % 

R 

35.30 

35.00 

121.00 

121.30 

1 

12.50  % 

S 

35.30 

35.00 

120.30 

121.00 

0 

0.00  % 

Figure  B.2  Major  Grid  Area  Boarding  Frequency. 
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Date  -  08/15/1987  Page  -  2 

Percentage 
Grid  Area    North     South     East     West     Total      Total 
Designation  Boundary  Boundary  Boundary  Boundary  Occurrences  Boardings 


T 

35.00 

34.30 

122.00 

122.30 

0 

0.00  % 

U 

35.00 

34.30 

121.30 

122.00 

0 

0.00  % 

V 

35.00 

34.30 

121.00 

121.30 

0 

0.00  % 

W 

35.00 

34.30 

120.30 

121.00 

0 

0.00  % 

X 

34.30 

34.00 

121.30 

122.00 

0 

0.00  % 

Y 

34.30 

34.00 

121.00 

121.30 

0 

0.00  % 

Total  Boardings  In  Major  Grid  Areas 7   87.50 

Total  Boardings  Outside  Grid  Area 1   12.50 

Total  Boardings 8 

Figure  B.2  Major  Grid  Area  Boarding  Frequency,  (cont'd.) 


! 
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US  Coast  Guard  Group  Monterey 
Boarding  Location  Frequency 
For  Minor  Grid  Areas  (Coastline) 
During  Period  01/01/1981  -  01/01/1988 

Total  Boardings  -         7 

Date  -  08/15/1987  Page  -  1 

Percentage 
Grid  Area    North     South      East      West      Total      Total 
Designation  Boundary  Boundary  Boundary  Boundary  Occurrences  Boardings 


01 

37.10 

37.05 

122.20 

122.25 

0 

0.00  % 

02 

37.10 

37.05 

122.15 

122.20 

0 

0.00  % 

03 

37.05 

37.00 

122.20 

122.25 

0 

0.00  % 

04 

37.05 

37.00 

122.15 

122.20 

0 

0.00  % 

05 

37.05 

37.00 

122.10 

122.15 

0 

0.00  % 

06 

37.00 

36.55  . 

122.15 

122.20 

0 

0.00  % 

07 

37.00 

36.55 

122.10 

122.15 

0 

0.00  % 

08 

37.00 

36.55 

122.05 

122.10 

0 

0.00  % 

09 

37.00 

36.55 

122.00 

122.05 

0 

0.00  % 

10 

37.00 

36.55 

121.55 

122.00 

0 

0.00  % 

11 

37.00 

36.55 

121.50 

121.55 

0 

0.00  % 

1-2 

36.55 

36.50 

122.00 

122.05 

0 

0.00  % 

13 

36.55 

36.50 

121.55 

122.00 

0 

0.00  % 

14 

36.55 

36.50 

121.50 

121.55 

0 

0.00  % 

15 

36.55 

36.50 

121.45 

121.50 

0 

0.00  % 

16 

36.50 

36.45 

122.00 

122.05 

0 

0.00  % 

17 

36.50 

36.45 

121.55 

122.00 

0 

0.00  % 

18 

36.50 

36.45 

121.50 

121.55 

0 

0.00  % 

19 

36.50 

36.45 

121.45 

121.50 

0 

0.00  % 

Figure  B.3  Minor  Grid  Area  Boarding  Frequency. 
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Date  -  08/15/1987  Page  -  2 

Percentage 
Grid  Area    North     South      East      West      Total      Total 
Designation  Boundary  Boundary  Boundary  Boundary  Occurrences  Boardings 


20 

36.45 

36.40 

122.00 

122.05 

0 

0.00  % 

21 

36.45 

36.40 

121.55 

122.00 

0 

0.00  % 

22 

36.45 

36.40 

121.50 

121.55 

0 

0.00  % 

23 

36.45 

36.40 

121.45 

121.50 

0 

0.00  % 

24 

36.40 

36.35 

122.00 

122.05 

0 

0.00  % 

25 

36.40 

36.35 

121.55 

122.00 

0 

0.00  % 

26 

36.40 

36.35 

121.50 

121.55 

1 

14.29  % 

27 

36.40 

36.35 

121.45 

121.50 

0 

0.00  % 

28 

36.35 

36.30 

121.55 

122.05 

0 

0.00  % 

29 

36.30 

36.25 

121.53 

122.05 

0 

0.00  % 

30 

36.25 

36.20 

121.52 

122.05 

0 

0.00  % 

31 

36.20 

36.15 

121.50 

122.05 

0 

0.00  % 

32 

36.15 

36.00 

121.30 

122.00 

0 

0.00  % 

33 

36.00 

35.40 

121.15 

121.45 

0 

0.00  % 

34 

35.40 

35.20 

120.45 

121.30 

1 

14.29  % 

35 

35.20 

35.00 

120.35 

121.10 

0 

0.00  % 

36 

35.00 

34.40 

120.35 

121.00 

0 

0.00  % 

37 

34.40 

34.27 

120.28 

121.00 

0 

0.00  % 

Total  Boardings  in  Minor  Grid/Coastline  Areas 2   28.57 

Total  3oardings  Outside  Minor  Grid  Areas 5   71.43 

Total  Boardings 7 

Figure  B.3  Minor  Grid  Area  Boarding  Frequency,  (cont'd.) 
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X 

X 

X 

NOVIOLS 

WEAPONS 

ALCOHOL 

3 

X 

US  Coast  Guard  Group  Monterey  Boarding  History 

Date-08/15/1987 
Page-  1 

DATE        TIME     BONO     VESSEL  HIN    BOLAT   BOLONG     POB 
01/15/1980   5:00:00a  mry-001  111111111111   37.00N  121. 52W     8 
V54  V55  V56  V57  V58.  V59  V60  V61  V62  V63  V64  V65  V66  V67  V68 

X         X         X         X         X 

U69  U70  U71  U72  U73  U74  U75  U76  U77  U78 

X         X         X         X 

owner/operator  was  abusive  towards  boarding  officer 

BOARDING  OFFICER  -  smith  bm3 

DATE        TIME      BONO     VESSEL  HIN    BOLAT   BOLONG     POB 
04/17/1985   2:30:00p  mry-008  111111111111   36.38N  121. 52W     0 
V54  V55  V56  V57  V58  V59  V60  V61  V62  V63  V64  V65  V66  V67  V68 

XXX 

U69  U70  U71  U72  U73  U74  U75  U76  U77  U78  NOVIOLS   WEAPONS   ALCOHOL 
x  x  2       x 

owner/operator  was  uncooperative  and  abusive  towards  boarding  officer 

BOARDING  OFFICER  -  adams  bm2 


Figure  B.4  Vessel  Boarding  History. 
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US  Coast  Guard  Group  Monterey 
Courtesy  Motorboat  Examinations  T CME's) 
During  the  Period:  01/01/1980  -  01/01/1988 


Date:  08/15/1987 

CME  Issue  Year 
prior  to  1970  . . 

1971  -  1975  

1976  -  1979  

1980  -  1981  

1982  -  1983  

1984  -  1985  

1986  -  1987  

1988  -  1989  

after  1990  


Occurrences 
0 
'  0 
0 
0 
2 
2 
0 
0 
0 


Percentage 
Total 
CME's 

0.00  % 

0.00  % 

0.00  % 

0.00  % 

50.00  % 

50.00  % 

0.00  % 

0.00  % 

0.00  % 


Page :  1 

Percentage 

Total 
Boardings 

0.00  % 


0.00  % 


0.00 
0.00 
15.38 
15.38 
0.00 
0.00 
0.00 


% 


% 


% 


Total  CME's  

Total  Boardings 


4 
8 


30.76 


Figure  B.5    Courtesy  Motorboat  Examination  Summary. 
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US  Coast  Guard  Group  Monterey 
Nighttime  /  Daytime  Operations 
For  the  Period:  01/01/1980  -  01/01/1988 


Date:  08/15/1987  Page: 


SAR  Cases: 

Occurrences 

Percentage 

Total 
SAR  Cases 

5 

41.67  % 

7 

58.33  % 

12 

Boardings : 

4 

50.00  % 

4 

50.00  % 

8 

Figure  B.6  SAR  and  Boarding  Day/Night  Summary. 
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US  Coast  Guard  Group  Monterey 
EPIC  Code  Statistical  Analysis 
For  Information  Collected 
During  the  Period:  01/01/1980  -  01/01/1988 


Date:  08/15/1987  Page:  1 

EPIC  Percentage 

Lookout  EPIC  Code                            Total 

Category  Description             Occurrences  EPIC  Category 


% 


In  the  course  of  normal  operations  3      42.86 

be  on  lookout  for  vessel 

described,  determine  course  and 

speed;  and  notify  requesting 

agency.   Do  not  maintain 

surveillance.   Take  no  action  that 

would  make  subject  vessel  aware  of 

interest. 

In  the  course  of  normal  operations  0       0.00  % 

be  on  lookout  for  vessel 

described,  determine  course  and 

speed;  motify  requesting  agency. 

Maintain  remote  surveillance 

pending  instructions.  Take  no 

action  that  would  make  subject 

vessel  aware  of  surveillance. 


In  the  course  of  normal  operations  3      42.86 

be  on  lookout  for  vessel 

described.   If  sighted  notify 

requesting  agency,  board  vessel, 

and,  if  evidence  supports,  seize 

vessel  and  arrest  persons 

on  board. 

Conduct  harbor  check  for  vessel.  1      14.29 

If  found,  maintain 

remote  surveillance,  notify 

requesting  agency  and  await 

further  instructions. 


Figure  B.7    EPIC  Code  Statistical  Analysis. 


% 


% 
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Date:  08/15/1987  Page:  2 

Percentage 
EPIC  EPIC  Code  Total 

Category  Description  Occurrences  EPIC  Category 


% 


Conduct  harbor  check,  board  vessel  0      0.00 

if  located  and  if 

evidence  supports,  seize  vessel, 

arrest  persons  on  board 

and  report  to  requesting  agency. 

Conduct  search  for  vessel  in  most  0       0.00  % 

appropriate  area  based  on 

information  in  paragraph  4  of 

lookout  message.   If  located, 

notify  requesting  agency, board 

vessel,  and  if  evidence 

supports,  seize  vessel  and  arrest 

persons  on  board. 


Total  EPIC  Occurrences  

Figure  B.7    EPIC  Code  Statistical  Analysis,  (cont'd.) 


US  Coast  Guard  Group  Monterey 
Vessel  Intelligence 
For  the  Period:  01/01/1980  -  01/01/1988 
***  EPIC  Code  Summary  *** 


Date:  08/15/1987  Page:  1 


Vessel 
Name 

miss 

alfa 

miss 

alfa 

miss 

cocaine 

Constance 

miss 

barbs 

miss 

cocaine 

miss 

cannibis 

Intelligence 
Date 

EPIC 
CODE 

03/01/1983 

1 

05/05/1985 

1 

05/20/1986 

1 

01/09/1986 

3 

02/05/1986 

3 

06/01/1985 

3 

05/18/1985 

4 

Figure  B.8  Summary  of  EPIC  Codes  Assigned. 
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US  Coast  Guard  Group  Monterey 
Immediate  Distress  Statistics 
During  Period:  01/01/1980  -  01/01/1988 


Date:  08/15/1987  Page:   1 

Percentage 
Total 
Occurrences        SAR  Cases 


Non- immediate  SAR  Cases  4  33.33 

Immediate  Distress  SAR  Cases  8  66.67 


o. 


% 


Total  SAR  Cases    12 


Figure  B.9     Immediate  Distress  Statistics. 
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US  Coast  Guard  Group  Monterey 
Vessel  Intelligence 
For  the  Period:  01/01/1980  -  01/01/1988 
***  Intelligence  Remarks  *** 


Date:  08/15/1987 

Vessel  Name 
Constance 


Date  of 
Intelligence 

01/09/1986 


Page:  1 


Remarks 


seen  in  panama  carrying  a  large  load 
of  marijuana  on  the  stern 


miss  alfa 


03/01/1983 


suspected  of  smuggling  illegal 
firearms 


miss  alfa 


05/05/1985 


vessel  seen  in  Cartegena,   Columbia 
taking  on  a  load  of  marijuana 


miss  barbs 


02/05/1986 


vessel  stolen  in  01/86  in  san 
francisco,   ca 

suspected  of  being  used  in  major 
drug  operations 


miss  cannibis 


05/18/1985 


vessel  stolen  in  san  diego,  ca  on 
04/14/1985 


miss  cocaine 


06/01/1985 


vessel  suspected  of  hauling  illegal 
contraband  and  child  pornography 
armed  and  dangerous 


Figure  B.10  Vessel  Intelligence  Remarks  Summary. 


74 


US  Coast  Guard  Group  Monterey 
Operator  Table  Dump 
For  DOB'S:  01/01/1920  -  01/01/1945 
Last  Names  Beginning  -  a       Ending  -  z 


Date:  08/15/1987 


Page :    1 


alien             , 
01/22/1942 

,  david 

408-345- 

■6789 

g. 

800  Casanova  Ave 
Monterey 

CA 

93940 

benson            , 
06/07/1923 

,  richard 
408-243- 

•9870 

q. 

12  pebble  st 
pebble  beach 

CA 

94956 

cranston           , 
09/23/1923 

,  ralph 

408-123- 

■9678 

s. 

1234  caster  way 
salinas 

CA 

93687 

fairbanks          . 
04/15/1933 

,  doug 

123-849- 

■2536 

i. 

345  hollywood  blvd 
hollywood 

CA 

94364 

Figure  B.  11     Operator  Listing. 
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US  Coast  Guard  Group  Monterey 
Operators  of  Vessels  Summary 


Vessel 

Operator 


Operator 
Address  /  Telno 


alien 

david  g. 

DOB  -  01/22/1942 


800  Casanova  Ave 

Monterey 

CA   93940      408-345-6789 


Date:  08/15/1987 
Page :     1 

Vessel 
Name  /  HIN 

miss  foxtrot 
666666666666 


alien 

david  g. 

DOB  -  01/22/1942 


800  Casanova  Ave 

Monterey 

CA   93940      408-345-6789 


miss  alfa 
111111111111 


benson 

richard        q. 
DOB  -  06/07/1923 


12  pebble  st 
pebble  beach 
CA   94956 


408-243-9870 


unk 
222222222222 


cranston 

ralph  s. 

DOB  -  09/23/1923 


1234  caster  way 

salinas 

CA   93687      408-123-9678 


miss  charlie 
333333333333 


flinstone 

fred  f. 

DOB  -  03/15/1945 


123  boulder  dr 

bedrock 

CA   91912 


345-334-3333 


miss  alfa 
111111111111 


flintstone 

fred  f. 

DOB  -  03/15/1945 


123  boulder  dr 

bedrock 

CA   91912 


345-334-3333 


miss  kilo 
999999999999 


public 

John  q. 

DOB  -  01/01/1901 


123  heroin  way 

drug  city 

CA   12345      123-456-7890 


miss  cocaine 
777777777777 


Simmons 

richard        d. 
DOB  -  12/20/1960 


654  bimptom  way 

las  vegas 

NV   07896      204-980-7890 


miss  charlie 
333333333333 


Simmons 

richard        d. 
DOB  -  12/20/1960 


654  bimptom  way 

las  vegas 

NV   07896  '     204-980-7890 


miss  echo 
555555555555 


Simpson 

greg  t. 

DOB  -  04/06/1957 


6789  bumpton  ave 

monterev 

CA   93940      408-234-9678 


miss  delta 
444444444444 


Figure  B.12    Operators  of  Vessels  Summary. 
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US  Coast  Guard  Group  Monterey 
Operator  Query  Summary  Report 


Last  Name:  flinstone 

First  Name :  fred 

Initial:  f 

Date  of  Birth:  03/15/1945 

Street  Address:  123  boulder  dr 

City:  bedrock 

State:  CA 

Zip  Code:  91912 

Telephone:  345-334-3333 


Figure  B.13    Operator  Query  Report. 


US  Coast  Guard  Group  Monterey 
Owners  Table  Dump 
For  DOB'S:  01/01/1940   -  01/01/1960 
Last  Names  Beginning  -  a    Ending  -  z 


Date:  01/01  1980 


Date:  08/15/1987 


Page:  1 


alien  ,  david 

01/22/1942        408-345-678 


800  Casanova  Ave 
Monterey 


CA  93940 
CA  94765 


edwards  ,  george         w 

06/06/1944        408-567-3456 


34  wedewood  manor 
pacific. grove 


flintstone         ,  fred  f 

03/15/1945        345-334-3333 


123  boulder  dr 
bedrock 


CA  91912 
CA  93945 


harris  ,    sam  k 

12/10/1952        408-576-9078 


12  small  way 
watsonville 


williams  ,  scott  j 

11/11/1952        415-234-5647 


345  anchor  way 
san  francisco* 


CA     91067 


Figure  B.14    Owners  Listing. 
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US  Coast  Guard  Group  Monterey 
Owners  of  Vessels  Summary 


Vessel 
Owner 


Owner 
Address  /  Telno 


alien 

david  g. 

DOB  -  01/22/1942 


800  Casanova  Ave 

Monterey 

CA  93940 


408-345-6789 


Date:  08/15/1987 
Page :     1 

Vessel 
Name  /  HIN 

miss  alfa 
111111111111 


benson 

richard        q. 
DOB  -  06/07/1923 


12  pebble  st 
pebble  beach 
CA  94956 


408-243-9870 


unk 
222222222222 


cranston 

ralph  s. 

DOB  -  09/23/1923 


1234  caster  way 

salinas 

CA  93687 


408-123-9678 


miss  charlie 
333333333333 


edwards 


Seorge         w. 
OB  - 


06/06/1944 


34  wedewood  manor 
pacific  grove 


miss  delta 
444444444444 


CA   9476! 


408-567-3456 


flintstone 

fred  f. 

DOB  -  03/15/1945 


123  boulder  dr 

bedrock 

CA  91912 


345-334-3333 


miss  kilo 
999999999999 


harris 

sam  k. 

DOB  -  12/10/1952 


12  small  way 
watsonville 
CA  93945 


408-576-9078 


miss  foxtrot 
666666666666 


harris 

sam  k. 

DOB  -  12/10/1952 


12  small  way 
watsonville 
CA  93945 


408-576-9078 


miss  alfa 
111111111111 


public 

John  q. 

DOB  -  01/01/1901 


123  heroin  way 

drug  city 

CA  12345       123-456-7890 


miss  cocaine 
777777777777 


rivera 

edward         w. 
DOB  -  01/01/1901 


123  payton  place 
pebble  beach 
CA  94657 


unk 
222222222222 


Simmons 

richard        d. 
DOB  -  12/20/1960 


654  bimptom  way 
las  vegas 
NV  07896 


204-980-7890 


miss  echo 

555555555555 


Figure  B.15    Owners  of  Vessels  Summary. 
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US  Coast  Guard  Group  Monterey 
Owner  Query  Summary  Report 


Last  Name:  harris 

First  Name:  sam 

Initial:  k 

Date  of  Birth:  12/10/1952 

Street  Address:  12  small  way 

City:  watsonville 

State:  CA 

Zip  Code:  93945 

Telephone:  408-576-9078 
Figure  B.16    Owner  Query  Report. 


Date:    08/15/1987 
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US  Coast  Guard  Group  Monterey 
Personnel  Intelligence  Summary  Listing 
For  the  Period:  01/01/1980  -  01/01/1988 


Last  Name 


First  Name    MI 


DOB 


alien  ,   david  g.   01/22/1942 

suspected  of  illegal  narcotics  smuggling 
considered  armed  and  dangerous 


Date:  08/15/1987 
Page :      1 

Date  of 
Intelligence 

08/08/1984 


alien  ,   david  g.   01/22/1942 

suspected  of  being  involved  in  arms  smuggling  ring 
considered  armed  and  dangerous 


03/04/1983 


harris  ,   sam  -.   01/01/1901 

suspected  of  possession  of  stolen  vessels 


02/03/1983 


public  ,      John  g.   01/01/1901 

suspected  of  illegal  drug  trafficking 


07/15/1986 


rivera  ,   edward         a.   01/01/1901       04/06/1986 

suspected  of  being  involved  in  illegal  arms  smuggling 


rivera  ,   fernando       -w.   04/06/1947 

suspected  of  illegal  narcotics  smuggling 


04/08/1985 


rivera  ,  pablo 

armed  and  dangerous 
fugitive  from  prosecution 
contact  FBI  upon  detention 


f.   01/01/1901 


04/06/1986 


Figure  B.17     Personnel  Intelligence  Listing. 
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US  Coast  Guard  Group  Monterey 
Personnel  Query  Summary  Report 

Date:   08/15/1987 

Last  Name:  public 
First  Name:  John 
Middle  Initial:  q 

DOB:  01/01/1901 

Street  Address:  123  heroin  way 

City:  drug  city 

State:  CA 

Zip  Code:  12345 

Telephone:  123-456-7890 
Figure  B.18  Personnel  Query  Report. 


US  Coast  Guard  Group  Monterey 
Personnel  Intelligence  Information 

Date:  08/15/1987 
Page :    1 

DATE  OF  INTEL       LAST  NAME  FIRST  NAME    MI        DOB 

07/15/1986     public  John  q      01/01/1901 

suspected  of  illegal  drug  trafficking 


Figure  B.19  Personnel  Intelligence  Report. 
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US  Coast  Guard  Group  Monterey 
Vessel  SAR  Case  Summary  Listing 
For  the  Period:  01/01/1980   *  01/01/1988 


Date:  08/15/1987 
Page :     1 


Vessel 
HIN 


111111111111    01/15/1980   mon   5:00:00a     37.00  N    121.52  W 
FLDR-mry-001  IMMED-y  NOD-taking  on  water  S/R-  6:00:00a 

UCN-00000001    OFFSHORE-    2  POB-    8  S/S-  7:00:00p 

MUCN-  SEAS-    3   SWLS-    2  WIND  DIR-180  SPD-  15   VISDIST-10 

222222222222    02/25/1981    fri   7:30:00p     36.29  N    122.46  W 
FLDR-mry-002  IMMED-n  NOD-mast  broke  S/R-  6:00:00a 

UCN-00000002   OFFSHORE-    3   POB-    12  S/S-  7:00:00p 

MUCN-  SEAS-    7   SWLS-    5  WIND  DIR-120  SPD-  12   VISDIST-  5 

333333333333    03/18/1983   mon  12:00:00p     36.28  N    123.06  W 
FLDR-mry-003  IMMED-n  NOD-engine  stopped  S/R-  6:00:00a 

UCN-00000003   OFFSHORE-    4  POB-  '  12  S/S-  7:00:00o 

MUCN-  SEAS-    6   SWLS-    3  WIND  DIR-270  SPD-  15   VISDIST-10 

444444444444    04/21/1984    fri   10:00:00p     35.20  N    122.15  W 
FLDR-mry-004  IMMED-n  NOD-broken  mast  S/R-  6:00:00a 

UCN-00000004    OFFSHORE-     6   POB-     3  S/S-  7:00:00p 

MUCN-  SEAS-   12   SWLS-   15  WIND  DIR-220  SPD-  25   VISDIST-  8 

555555555555    05/22/1985   sat  ll:12:00p     36.28  N    122.35  W 
FLDR-mry-005  IMMED-y  NOD-taking  on  water  S/R-  6:00:00a 

UCN-00000005   OFFSHORE-     1   POB-    4  S/S-  7:00:00p 

MUCN-  SEAS-    6   SWLS-   10  WIND  DIR-260  SPD-  15   VISDIST-  1 

333333333333    06/15/1985   sat  ll:00:00p     36.37  N    121.56  W 
FLDR-mry-010  IMMED-y  NOD-man  overboard  in  surf     S/R-  5:00:0.0a 
UCN-00000010   OFFSHORE-     1   POB-     5  S/S-  7:30:00p 

MUCN-  SEAS-    2   SWLS-    4  WIND  DIR-300  SPD-   5   VISDIST-10 

666666666666    04/16/1986   fri   2:00:00a     36.36  N    121.59  W 
FLDR-mry-012  IMMED-y  NOD-vessel  on  fire  S/R-  6:00:00a 

UCN-00000012   OFFSHORE-     1   POB-     5  S/S-  7:00:00p 

MUCN-  SEAS-    2   SWLS-    3  WIND  DIR-280  SPD-   3    VISDIST-15 

666666666666    06/13/1986    sat    l:00:00p     36.28  N    122.15  W 
FLDR-mry-006  IMMED-y  NOD-fire  on  board  S/R-  6:00:00a 

UCN-00000006    OFFSHORE-     6   POB-     4  S/S-  7:00:00p 

MUCN-  SEAS-    3   SWLS-    5  WIND  DIR-330  SPD-  15   VISDIST-10 


Figure  B.20  SAR  Listing. 
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US  Coast  Guard  Group  Monterey 
SAR  Case  Frequency  Statistics 
For  Months  and  Years 
01/01/1980   -  12/30/1986 


Month 

Total  Number 
SAR  Cases 

P 

Date:  08/15/1987 
Page:    1 

ercentage 

Total 
SAR  Cases 

January  . 
February 

March  . . 

April  . . 

August  . . 

1 

1 

1 

2 

1 

3 

1 

1 

9.09 
9.09 
9.09 

18.18 
9.09 

27.27 
9.09 
9.09 
0.00 
0.00 
0.00 
0.00 

1  ' 

September 
October  . 

0 

i 

0 

i 

November  . 

0 

i 

December  . 

0 

i 

Year 

1980 

Total 
SAR 

Number 
Cases 

■ 

1 
1 
0 
1 
2 
2 
4 

1981  

1982  

- 

1983  

■ 

1985  

1986  

11 

Figure  B.21     SAR  Months  and  Years  Frequency  Statistics. 
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US  Coast  Guard  Group  Monterey 
SAR  Case  Day  of  the  Week  Frequency 


Day  of 
the  Week 


Monday  . . . 
Tuesday  . , 
Wednesday 
Thursday  , 
Friday  . . , 
Saturday  , 
Sunday  . . , 


/ 


Date:  08/15/1987 
Page:   1 

SAR 
Occurrences 

Percentage 

Total  SAR  Cases 

2 

16.67 

% 

0 

0.00 

% 

0 

0.00 

% 

0 

0.00 

% 

5 

41.67 

% 

5 

41.67 

% 

0 

0.00 

% 

Total  SAR  Cases 
Evaluated 


12 


Figure  B.22    SAR  Day  of  Week  Frequency  Statistics. 
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US  Coast  Guard  Group  Monterey 
SAR  Case  Location  Frequency 
For  Major  Grid  Areas 
During  Period  01/01/1980  -  01/01/1988 


Total  SAR  Cases  -         12 


Date  -  08/15/1987  Page  -  1 

Percentage 
Grid  Area   North     South      East      West     Total      Total 
Designation  Boundary  Boundary  Boundary  Boundary  Occurrences  SAR  Cases 


A 

37.30 

37.00 

122.30 

123.00 

0 

0.00  % 

B 

37.30 

37.00 

122.00 

122.30 

0 

0.00  % 

C 

37.00 

36.30 

123.00 

123.30 

0 

0.00  % 

D 

37.00 

36.30 

122.30 

123.00 

0 

0.00  % 

E 

37.00 

36.30 

122.00 

122.30 

0 

0.00  % 

F 

37.00 

36.30 

121.30 

122.00 

4 

33.33  % 

G 

36.30 

36.00 

123.00 

123.30 

1 

8.33  % 

H 

36.30 

36.00 

122.30 

123.00 

2 

16.67  % 

I 

36.30 

36.00 

122.00 

122.30 

.  2 

16.67  % 

J 

36.30 

36.00 

121.30 

122.00 

0 

0.00  % 

K 

36.00 

35.30 

122.30 

123.00 

0 

0.00  % 

L 

36.00 

35.30 

122.00 

122.30 

0 

0.00  % 

M 

36.00 

35.30 

121.30 

122.00 

0 

0.00  % 

N 

36.00 

35.30 

121.00 

121.30 

0 

0.00  % 

0 

35.30 

35.00 

122.30 

123.00 

0 

0.00  % 

P 

35.30 

35.00 

122.00 

122.30 

1 

8.33  % 

Q 

35.30 

35.00 

121.30 

122.00 

0 

0.00  % 

R 

35.30 

35.00 

121.00 

121.30 

'1 

8.33  % 

Figure  B.23  Major  Grid  Area  SAR  Frequency. 
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Date  -  08/15/1987  Page  -  2 

Percentage 
Grid  Area   North     South     East     West     Total      Total 
Designation  Boundary  Boundary  Boundary  Boundary  Occurrences  SAR  Cases 


s 

35.30 

35.00 

120.30 

121.00 

0 

0.00  % 

T 

35.00 

34.30 

122.00 

122.30 

0 

0.00  % 

U 

35.00 

34.30 

121.30 

122.00 

0 

0.00  % 

V 

35.00 

34.30 

121.00 

121.30 

0 

0.00  % 

W 

35.00 

34.30 

120.30 

121.00 

0 

0.00  % 

X 

34.30 

34.00 

121.30 

122.00 

0 

0.00  % 

Y 

34.30 

34.00 

121.00 

121.30 

0 

0.00  % 

Total  SAR  Cases  in  Major  Grid  Areas 11   91.67  % 

Total  SAR  Cases  Outside  Grid  Areas 1    3.33  ' 


Total  SAR  Cases 12 

Figure  B.23  Major  Grid  Area  SAR  Frequency,  (cont'd.) 


o 
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US  Coast  Guard  Group  Monterey 
SAR  Case  Location  Frequency 
For  Minor  Grid  Areas  (Coastline) 
During  Period  01/01/1980  -  01/01/1988 


Total  SAR  Cases  -         12 


Date  -  08/15/1987  Page  -  1 

Percentage 
Grid  Area   North     South      East      West      Total      Total 
Designation  Boundary  Boundary  Boundary  Boundary  Occurrences  SAR  Cases 


01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 


37.10 

37.05 

122.20 

122.25 

37.10 

37.05 

122.15 

122.20 

37.05 

37.00 

122.20 

122.25 

37.05 

37.00 

122.15 

122.20 

37.05 

37.00 

122.10  . 

122.15 

37.00 

36.55 

122.15 

122.20 

37.00 

36.55 

122.10 

122.15 

37.00 

36.55 

122.05 

122.10 

37.00 

36.55 

122.00 

122.05 

37.00 

36.55 

121.55 

122.00 

37.00 

36.55 

121.50 

121.55 

36.55 

36.50 

122.00 

122.05 

36.55 

36.50 

121.55 

122.00 

36.55 

36.50 

121.50 

121.55 

36.55 

36.50 

121.45 

121.50 

36.50 

36.45 

122.00 

122.05 

36.50 

36.45 

121.55 

122.00 

36.50 

36.45 

121.50 

121.55 

36.50 

36.45 

121.45 

121.50 

Figure  B.24    Minor  Grid  Area  SAR  Frequency. 
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0.00 

0 

0.00 
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0.00 
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0.00 
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0.00 
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0.00 
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0.00 
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0.00 
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0.00 

0 

0.00 

0 

0.00 
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0.00 
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0.00 
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0.00 
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0.00 
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0.00 
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0.00 
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8.33 
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Date  -  08/15/1987  Page  -  2 

Percentage 
Grid  Area   North     South      East      West      Total      Total 
Designation  Boundary  Boundary  Boundary  Boundary  Occurrences  SAR  Cases 


20 

36.45 

36.40 

122.00 

122.05 

0 

0.00  % 

21 

36.45 

36.40 

121.55 

122.00 

0 

0.00  % 

22 

36.45 

36.40 

121.50 

121.55 

0 

0.00  % 

23 

36.45 

36.40 

121.45 

121.50 

0 

0.00  % 

24 

36^40 

36.35 

122.00 

122.05 

0 

0.00  % 

25 

36.40 

36.35 

121.55 

122.00 

3 

25.00  % 

26 

36.40 

36.35 

121.50 

121.55 

0 

0.00  % 

27 

36.40 

36.35 

121.45 

121.50 

0 

0.00  % 

28 

36.35 

36.30 

121.55 

122.05 

0 

0.00  % 

29 

36.30 

36.25 

121.53 

122.05 

0 

0.00  % 

30 

36.25 

36.20 

121.52 

122.05 

0 

0.00  % 

31 

36.20 

36.15 

121.50 

122.05 

0 

0.00  % 

32 

36.15 

36.00 

121.30 

122.00 

0 

0.00  % 

33 

36.00 

35.40 

121.15 

121.45 

0 

0.00  % 

34 

35.40 

35.20 

120.45 

121.30 

1 

8.33  % 

35 

35.20 

■   35.00 

120.35 

121.10 

0 

0.00  % 

36 

35.00 

34.40 

120.35 

121.00 

0 

0.00  % 

37 

34.40 

34.27 

120.28 

121.00 

0 

0.00  % 

Total  SAR  Cases  in  Minor  Grid/Coastline  Areas 5   41.67 

Total  SAR  Cases  Outside  Grid  Areas 7   58.33 

Total  SAR  Cases 12 

Figure  B.24  Minor  Grid  Area  SAR  Frequency,  (cont'd.) 
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US  Coast  Guard  Group  Monterey  Vessel  SAR  History 

Date-08/15/1987 
Page-  1 
SARDATE     SARTIME    FOLDERNO   VESSEL  HIN      UCN       MUCN    POB 
01/15/1980   5:00:00a   mry-001   111111111111   00000001  8 

NOD  -  taking  on  water  IMMED?  -  y 

LAT  -   37.00N   LONG  -   121. 52W        DISTOFF(NM)  -   2 

SARDATE     SARTIME    FOLDERNO   VESSEL  HIN  UCN       MUCN    POB 

06/15/1986   ll:35:00p   mry-011   111111111111  00000011             4 

NOD  -  engine  stopped  IMMED?  -  n 

LAT  -   36.39N   LONG  -   121. 56W  DISTOFF(NM)  -   1 

SARDATE  SARTIME    FOLDERNO   VESSEL  HIN  UCN       MUCN    POB 

08/01/1986  2:00:00p   mry-008  111111111111  00000008  00000002    6 

NOD  -  vessel  on  fire  IMMED?  -  y 

LAT  -  36.47N   LONG  -   121. 52W  DISTOFF(NM)  -   2 


Figure  B.46  Vessel  Query  SAR  History. 
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US  Coast  Guard  Group  Monterey 
SAR  Case  Location  Frequency 
For  Small  Boat  OPS  Area 
During  the  Period:  01/01/1980  -  01/01/1988 


Total  SAR  Cases  - 


12 


Date:    08/15/1987 


Area 


Occurrences 


Page :    1 

Percentage 

Total 
SAR  Cases 


Inside  Small  Boat  OPS  Area    7                             58.33  % 

Outside  Small  Boat  OPS  Area    5                             41.67  % 

***  NOTE   *** 
The  Small  Boat  OPS  Area   is   defined  as   the   area  bounded  by 

the   following  coordinates: 

South                                 North                                 East  West 

Boundary                        Boundary                          Boundary  Boundary 

36-10   N.                            36-18  N                               121-40   W  122-20   W 

36-18                                  36-37                                    121-40  122-25 

36-37                                 36-48                                   121-40  122-30 

36-48                                36-53                                   121-40  122-35 

36-53                                36-57                                   121-40  122-40 

36-57                                 37-00                                   121-40  122-45 

37-00                                37-05                                   121-40  122-45 

37-05                                37-10                                   121-40  122-30 


Figure  B.26    Small  Boat  Operations  Area  SAR  Frequency. 
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US  Coast  Guard  Group  Monterey 
SAR  Case  Times  Summary  (in  hours) 
For  the  Period:  01/01/1980  -  21/21/12!! 

Date:  08/15/1987  Page:   1 

Number  Total      Average    Maximum   Minimun 

of  Cases  Unit  Time  Unit  Time   Time      Time 

Examined  Expended   Expended   Expended  Expended 

Total  Time 
15    Expended  111.8       7.5      14.5       2.2 

Total  Time  to 
15    Being  on  Scene  ....     22.7        1.5       3.5       0.6 

Total  Time  to 
Being  Alongside 
14    Distressed  Vessel  .     34.7        2.5      11.1       0.3 

Total  Time  in 
Searching  for 
14    Distressed  Vessel  .     13.3       0.9       9.3       0.0 

Total  Time 
in  Towing 
11    Distressed  Vessel  •.     40.8       3.7      7.5      1.1 

Figure  B.27  SAR  Unit  Time  Summary. 


91 


US  Coast  Guard  Group  Monterey 

Boarding  Location  Frequency 

For  Small  Boat  OPS  Area 

During  the  Period:  01/01/1980  -  01/01/1988 


Total  Boardings  - 


8 


Date:    08/15/1987 


Area 


Occurrences 


Page :    : 

Percentage 

Total 
Boardings 


Inside  Small  Boat  OPS  Area    3                             37.50  % 

Outside   Small  Boat  OPS  Area    5                             62.50  % 

***  NOTE   *** 
The  Small  Boat  OPS  Area  is   defined  as   the   area  bounded  by 

the   following  coordinates: 

South                                 North                                 East  West 

Boundary                        Boundary                           Boundary  Boundary 

36-10   N                             36-18  N                               121-40  W  122-20  W 

36-18                                  36-37                                    121-40  122-25 

36-37                                 36-48                                   121-40  122-30 

36-48                                36-53                                   121-40  122-35 

36-53                                 36-57                                   121-40  122-40 

36-57                                 37-00                                   121-40  122-45 

37-00                                37-05                                   121-40  122-45 

37-05                                37-10                                   121-40  122-30 


Figure  B.47    Small  Boat  Operations  Area  Boarding  Frequency. 
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US  Coast  Guard  Group  Monterey 
Vessel  Intelligence 
For  the  Period:  01/01/1980  -  01/01/1988 
***  Stolen  Vessel  List  *** 


Date:  08/15/1987 


Page 


Vessel 
Name 

miss 

barbs 

miss 

cannibis 

miss 

cocaine 

miss 

cocaine 

miss 

everyday 

miss 

mariposa 

Date  of 
Intelligence 

02/05/1986 

05/18/1985 

06/01/1985 

05/20/1986 

08/08/1985 

05/06/1986 


Figure  B.29     Stolen  Vessel  Listing. 
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US  Coast  Guard  Group  Monterey 
Boarding  Unsafe  Condition  Summary 
For  the  Period:  01/01/1980  -  01/01/1988 


Total  Boardings 


Date:  08/15/1987 


8 


Page 


Unsafe  Condition 

Occurrences 

Percentc 
Total  Bo< 

37.50 
0.00 

ige  of 
irdings 

Unsafe  Conditions  

Terminated  Use  , 

3 
0 

% 

% 

2 

25.00 

% 

Accumulation  of 

3 

37.50 

% 

Fuel  Leak  

2 

25.00 

% 

Manifestly  Unsafe  Voyage  . 

3 

37.50 

% 

Hazardous  Bars 

(13th  District)  , 

1 

12.50 

% 

Alcohol  Condition  

6 

1 

75.00 
12.50 

% 

Other  

% 

Total  Unsafe  Conditions  . . . 


21 


Warning  Issued 

No  Violation  Found 


4 
0 


50.00  % 
0.00  % 


Figure  B.30    Boarding  Unsafe  Condition  Summary. 
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US  Coast  Guard  Group  Monterey 

Demographics  for  Violation  54 

Numbering 
For  the  Period:  01/01/1980  -  01/01/1988 
***  Vessel  Construction  Type  *** 


Date:  08/15/1987 

Page : 

Construction 
Type 

Occurrences 

Percentage 
Total 
Violation-54 

Percentage 
Total 
Boardings 

open 

2 

28.57  % 

25.00  % 

closed 

5 

71.43  % 

62.50  % 

unknown 

0 

0.00  % 

0.00  % 

Total  Occurrences. 
Total  Boardings... 


7 
8 


87.50  % 


Figure  B.31     Violation  Summary  by  Vessel  Construction  Type. 


US  Coast  Guard  Group  Monterey 
Demographics   for  Violation  —   54 
Numbering 
For  the  Period:    01/01/1980     -   01/01/1988 
***  Vessel  Engine  Compartment  Type  *** 


Date:    08/15/1987 


Page 


Engine 
Compartment 
Type 

Occurrences 

Percentage 
Total 
Violation-54 

Percentage 

Total 
Boardings 

open 

3 

42.86  % 

37.50  % 

closed 

4 

57.14  % 

50.00  % 

unknown 

0 

0.00  % 

0.00  % 

Total  Occurrences. 
Total  3oardings... 


7 
3 


37.50 


Figure  B.32    Violation  Summary  by  Engine  Compartment  Type. 
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US  Coast  Guard  Group  Monterey 
Vessel  Summary  Listing 


Date:  08/15/1987 
Page :    1 


Vessel 
HIN 


111111111111  TYP-1  USE-2  MK-criscraft  MD-supra      YR-1981  TNS-  12 
miss  alfa  LEN-   65(ft)    3(in)      VALUE-   $75,000.00 

11111111    CONST-2    ENG-2    FUEL-1    HULL-3    PROP-2 

COLORS:  CB-blu  DK-brn  HL-red  TR-wht  SL-unk      SL#- 

34f56         CME-n  YR-       MSTS--    S/S-  H/P-120 

catalina,   ca  MRKS- 

333333333333  TYP-2  USE-1  MK-bayliner   MD-supra      YR-1980  TNS-  12 
miss  Charlie  LEN-   34(ft)    7(in)      VALUE-   $45,000.00 

33333333    CONST-2   ENG-2    FUEL-2   HULL-4   PR0P-3 
3333333333  COLORS:  CB-red  DK-blu  HL-brn  TR-wht  SL-unk      SL#- 
ki3we         CME--  YR-       MSTS-0   S/S-  H/P-170 

monterey,  ca  MRKS- 

777777777777  TYP-1  USE-1  MK-trawler    MD-  YR-1967  TNS-  17 

miss  cocaine         LEN-   35(ft)   4(in)      VALUE-   $25,000.00 
77777777    CONST-2   ENG-2    FUEL-2   HULL-3   PR0P-3 

COLORS:  CB-wht  DK-wht  HL-wht  TR-wht  SL-unk      SL#- 
CME-n  YR-       MSTS-0    S/S-  H/P-250 

moss  landing,   ca        MRKS- 

444444444444  TYP-3   USE-2   MK-express    MD-37         YR-1983   TNS-   8 
miss  delta  LEN-   37 (ft)   4 (in)      VALUE-   $42,000.00 

44444444   CONST- 1    ENG-1    FUEL-1   HULL-1    PROP-1 
4444444444  COLORS:  CB-wht  DK-brn  HL-blu  TR-wht  SL-brn      SL#-12 
CME-n  YR-       MSTS-2   S/S-  H/P-40 

moss  landing,   ca        MRKS- 

555555555555  TYP-1  USE-2  MK-boston     MD-whaler     YR-1984  TNS-   1 
miss  echo  LEN-   23(ft)    3(in)      VALUE-    $6,000.00 

55555555    CONST-1    ENG-1    FUEL-1   HULL-2   PROP-1 
5555555555  COLORS:  CB-unk  DK-unk  HL-wht  TR-blu  SL-unk      SL#- 

CME--  YR-       MSTS-0   S/S-  H/P-80 

las  vegas,   nv  MRKS- 


Figure  B.33     Vessel  Listing. 
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US  Coast  Guard  Group  Monterey 

Demographics  for  Violation  54 

Numbering 
For  the  Period:  01/01/1980  -  01/01/1988 
***  Vessel  Fuel  Compartment  Type  *** 


Date:  08/15/1987 

Fuel 
Compartment 
Type 

open 

closed 
unknown 


Occurrences 
4 
3 

0 


Percentage 
Total 
Violation-54 

57.14  % 

42.86  % 

0.00  % 


Page :   1 

Percentage 

Total 
Boardings 

50.00  % 

37.50  % 

0.00  % 


Total  Occurrences. 
Total  Boardings... 


7 
8 


87.50  % 


Figure  B.34    Violation  Summary  by  Fuel  Compartment  Type. 
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US  Coast  Guard  Group  Monterey 

Demographics  for  Violation  54 

Numbering 

For  the  Period:  01/01/1980  -  01/01/1988 

***  vessel  Hull  Material  Type  *** 


Date:  08/15/1987 


Hull 

Material 

Type 

Occurrences 

wood 

1 

aluminum 

1 

steel 

3 

fiberglass 

2 

rubber, vinyl 

0 

cement 

0 

other 

0 

unknown 

0 

Percentage 
Total 
Violation-54 


14.29 

14.29 

42.86 

28.57 

0.00 

0.00 

0.00 

0.00 


% 


% 


% 


Page: 

Percentage 

Total 
Boardings 

12.50  % 

12.50  % 


37.50  % 


25.00  % 
0.00  % 
0.00  % 
0.00  % 
0.00  % 


Total  Occurrences. 
Total  Boardings.,. 


7 

8 


87.50  % 


Figure  B.35  Violation  Summary  by  Hull  Material  Type. 


US  Coast  Guard  Group  Monterey 
Vessel  Intelligence  Information 


Date:  08/15/1987 
Page:   1 


DATE  OF  INTEL      VESSEL  NAME       EPIC  CODE   STOLEN  ? 
03/01/1983      miss  alfa  1        n 

suspected  of  smuggling  illegal  firearms 


DATE  OF  INTEL      VESSEL  NAME       EPIC  CODE   STOLEN  ? 
05/05/1985      miss  alfa  1        n 

vessel  seen  in  Cartegena,   Columbia  taking  on  a  load  of  marijuana 


Figure  B.36  Query  Vessel  Intelligence  History. 
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US  Coast  Guard  Group  Monterey 
Boarding  Violation  Statistical  Summary 
For  Period  01/01/1980  -  01/01/1988  ' 

Total  Boardings  -  8 

Date  -  08/15/1987  Page  -  1 

Violation 


Numbering 

Certificate 

Personal  Flotation  Device... 

Sound  Producing  Device 

Bell 

Fire  Extinguisher 

Flame.  Control 

Ventilation 

Navigation  Anchor  Lights .... 

Negligent  Operations 

Failure  To  Terminate 

Pollution  Placard  Not  Posted 
Marine  Sanitation  Devices... 

Visual  Distress  Signals 

Document  Official  Numbers... 


Occurrences 

Percentage  of 
Total  Boardings 

7 

87.50  % 

5 

62.50  % 

6 

75.00  % 

5 

62.50  % 

6 

75.00  % 

1 

12.50  % 

2 

25.00  % 

2 

25.00  % 

3 

37.50  %  • 

1 

12.50  % 

2 

25.00  % 

2 

25.00  % 

3 

37.50  % 

3 

37.50  % 

7 

87.50  % 

Total  Violations 55 

Figure  B.37    Boarding  Violation  Summary. 
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US  Coast  Guard  Group  Monterey 

Demographics  for  Violation  54 

Numbering 

For  the  Period:  01/01/1980  -  01/01/1988 

***  Vessel  Length  Profile  *** 


Date:  08/15/1987 


Vessel  Length 
(feet) 


Occurrences 


Percentage 
Total 
Violation-54 


Page :  1 

Percentage 

Total 
Boardings 


less  than  20  . , 

20  -  29  , 

30  -  39  , 

40  -  49  , 

50  -  59  , 

60  -  69  , 

70  -  79  , 

80  -  89  , 

90  -  99  , 

100  or  greater 


0 

1 
1 
1 
0 

1 

0 
2 

1 
0 


0.00  % 
14.29  % 
14.29  % 
14.29  % 

0.00  % 
14.29  % 

0.00  % 
28.57  % 
14.29  % 

0.00  % 


0.00  % 
12.50  % 
12.50  % 
12.50  % 

0.00  % 
12.50  % 

0.00  % 
25.00  % 
12.50  % 

0.00  % 


Total  Occurrences 
Total  Boardings.. 


7 
8 


87.50  % 


Figure  B.38    Violation  Summary  by  Vessel  Length. 
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US  Coast  Guard  Group  Monterey 

Demographics  for  Violation  54 

Numbering 
For  the  Period:  01/01/1980  -  01/01/1988 
***  Vessel  Propulsion  Type  *** 


Date:  08/15/1987 

Page :   1 

Propulsion 
Type 

Occurrences 

Percentage 
Total 
Violation-54 

Percentage 

Total 
Boardings 

outboard 

3 

42.86 

% 

37.50  % 

inboard  gas 

1 

14.29 

% 

12.50  % 

inboard  diesel 

3 

42.86 

% 

37.50  % 

inbrd/outbrd 

0 

0.00 

% 

0.00  % 

jet  propelled 

0 

0.00 

% 

0.00  % 

sail  only 

0 

0.00 

% 

0.00  % 

manual 

0 

0.00 

% 

0.00  % 

other 

0 

0.00 

% 

0.00  % 

unknown 

0 

0.00 

% 

0.00  % 

Total  Occurrences. 
Total  Boardings... 


7 

8 


87.50  % 


Figure  B.39    Violation  Summary  by  Vessel  Propulsion  Type. 
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US  Coast  Guard  Group  Monterey 
Vessel  Operators  Summary  Listing 


Vessel 
Name  /  HIN 


Vessel 
Operator 


miss  alfa 

111111111111 


flinstone 

fred  f. 

DOB  -  03/15/1945 


Date:  08/15/1987 
Page :     1 

Operator 
Address  /  Telno 

123  boulder  dr 

bedrock 

CA   91912    345-334-3333 


miss  alfa 

111111111111 


alien 

david  g. 

DOB  -  01/22/1942 


800  Casanova  Ave 

Monterey 

CA   93940    408-345-6789 


miss  charlie 

333333333333 


Simmons 

richard        d. 
DOB  -  12/20/1960 


654  b imp torn  way 

las  vegas 

NV   07896    204-980-7890 


miss  charlie 

333333333333 


cranston 

ralph  s. 

)0B  -  09/23/1923 


1234  caster  way 

salinas 

CA   93687    408-123-9678 


miss  cocaine 

777777777777 


public 

John  q. 

DOB  -  01/01/1901 


123  heroin  way 

drug  city 

CA   12345    123-456-7890 


miss  delta 

444444444444 


Simpson 

greg  t. 

DOB  -  04/06/1957 


6789  bumpton  ave 

monterey 

CA   93940    408-234-9678 


miss  echo 

555555555555 


Simmons 

richard        d. 
DOB  -  12/20/1960 


654  bimptom  way 

las  vegas 

NV   07896    204-980-7890 


miss  foxtrot 

666666666666 


Williams 

scott  j . 

DOB  -  11/11/1952 


345  anchor  way 

san  francisco 

CA   91067    415-234-5647 


miss  foxtrot 

666666666666 


alien 

david  g. 

DOB  -  01/22/1942 


800  Casanova  Ave 

Monterey 

CA   93940    408-345-6789 


miss  kilo 

999999999999 


flintstone 
fred  f. 

DOB  -  03/15/1945 


123  boulder  dr 

bedrock 

CA        91912  345-334-3333 


Figure  B.40    Vessel  Operators  Summary  Listing. 
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US  Coast  Guard  Group  Monterey 
Vessel  Owners  Summary  Listing 


Date:  08/15/1987 
Page :     1 


Vessel 
Name  /  HIN 

Vessel 
Owner 

Owner 
Address  /  Telno 

miss  alfa 

111111111111 

alien 

david          g. 
DOB  -  01/22/1942 

800  Casanova  Ave 

Monterey 

CA  93940     408-345-6789 

miss  alfa 

111111111111 


harris 

sam  k. 

DOB  -  12/10/1952 


12  small  way 
watsonville 
CA  93945 


408-576-9078 


miss  charlie 

333333333333 


cranston 

ralph  s. 

DOB  -  09/23/1923 


1234  caster  way 

salinas 

CA  93687     408-123-9678 


miss  cocaine 

777777777777 


public 

j  ohn  g . 

DOB  -  01/01/1901 


123  heroin  way 

drug  city 

CA   12345     123-456-7890 


miss  delta 

444444444444 


edwards 

george         w. 
DOB  -  06/06/1944 


34  wedewood  manor 

pacific  grove 

CA   94765     408-567-3456 


miss  echo 

555555555555 


Simmons 

richard        d. 
DOB  -  12/20/1960 


654  bimptom  way 

las  vegas 

NV  07896     204-980-7890 


miss  foxtrot 

666666666666 


harris 

sam  k. 

DOB  -  12/10/1952 


12  small  way 
watsonville 
CA  93945 


408-576-9078 


miss  foxtrot 

666666666666 


williaras 

scott  j . 

DOB  -  11/11/1952 


345  anchor  way 

san  francisco 

CA  91067     415-234-5647 


miss  kilo 

999999999999 


flintstone 
fred  f. 

DOB  -  03/15/1945 


123  boulder  dr 

bedrock 

CA  91912     345-334-3333 


unk 


222222222222 


benson 

richard        g. 
DOB  -  06/07/1923 


12  pebble  st 
pebble  beach 
CA  94956 


408-243-9870 


Figure  B.41     Vessel  Owners  Summary  Listing. 
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US  Coast  Guard  Group  Monterey  Vessel  Query  Information 

USE  -  pleasure 
TYPE  -  open  m/b 
PROPULSION  -  inboard  gas 
HULL  MATERIAL  -  steel 
ENGINE  COMPARTMENT  -  closed 
FUEL  COMPARTMENT  -  open 
CONSTRUCTION  -  closed 


NAME  - 

HIN  - 

NO  - 

OFF.  NO  - 

miss  alfa 

111111111111 

11111111 

MAKE  - 

MODEL  - 

YEAR  - 

TONS  - 

LEN  (ft)  - 

LEN  (in)  - 

HORSEPOWER 

criscraft 
supra 
1981 
12 

65 
3 
-  120 

HOMEPORT  • 

CALL  SIGN  • 

VALUE  ■ 

CME  DECAL  ■ 

YEAR  - 

-  catalina,   ca 

-  34f56 

$75,000.00 

-  n 

SUPERSTRUCTURE  DESC  - 

MASTS  ■ 

COLORS : 

HULL  - 

red 

TRIM  - 

wht 

CABIN  - 

blu 

DECK  - 

brn 

SAIL  - 

unk 

SAIL  NUMBER  - 


UNUSUAL  MARKINGS  - 


Figure  B.42    Query  Vessel  Information  Listing. 
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US  Coast  Guard  Group  Monterey 

Demographics  for  Violation  54 

Numbering 
For  the  Period:  01/01/1980  -  01/01/1988 
***  Vessel  Type  Profile  *** 


Date:  08/15/1987  Page 


Vessel  Type 
open  m/b 
closed  m/b 
sail 
rowboat 
canoe/kayak 
houseboat 
inflatable 
other 
unknown 


Occurrences 

Percentage 
Total 
Violation-54 

Percentage 

Total 
Boardings 

3 

42.86 

% 

37.50  % 

2 

28.57 

% 

25.00  % 

2 

28.57 

% 

25.00  % 

0 

0.00 

% 

0.00  % 

0 

0.00 

% 

0.00  % 

0 

0.00 

% 

0.00  % 

0 

0.00 

% 

0.00  % 

0 

0.00 

% 

0.00  % 

0 

0.00 

% 

0.00  % 

Total  Occurrences....  7  87.50  • 


Total  Boardings 8 

Figure  B.43    Violation  Summary  by  Vessel  Type. 


o 
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US  Coast  Guard  Group  Monterey 

Demographics  for  Violation  54 

Numbering 
For  the  Period:  01/01/1980  -  01/01/1988 
***  Vessel  Use  Profile  *** 


Date:  08/15/1987 

Page: 

Vessel  Use 

Occurrences 

Percentage 
Total 
Violation-54 

Percentage 

Total 
Boardings 

commercial 

3 

42.86  % 

37.50  % 

pleasure 

4 

57.14  % 

50.00  % 

passenger 

0 

0.00  % 

0.00  % 

unknown 

0 

0.00  % 

0.00  % 

Total  Occurrences.         7  87.50  % 

Total  Boardings...         8 

Figure  B.44  Violation  Summary  by  Vessel  Use. 
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US  Coast  Guard  Group  Monterey 

Demographics  for  Violation  54 

Numbering 

For  the  Period:  01/01/1980  -  01/01/1988 

***  Vessel  Year  Profile  *** 

Date:  08/15/1987  Page 


Vessel 
Years 

Occurrences 

1 

1960 

-  1964  

0 

1965 

-  1969  

1 

1970 

-  1974  

0 

1975 

-  1979  

0 

1980 

-  1984  

5 

1985 

-  1989  

0 

1990 

-  1994  

0 

1995 

-  1999  

0 

2000 

0 

Percentage 

Total 
Violation-54 

Percentage 

Total 
Boardings 

14.29 

% 

12.50  % 

0.00 

% 

0.00  % 

14.29 

% 

12.50  % 

0.00 

% 

0.00  % 

0.00 

% 

0.00  % 

71.43 

% 

62.50  % 

0.00 

% 

0.00  % 

0.00 

% 

0.00  % 

0.00 

% 

0.00  % 

0.00 

% 

0.00  % 

Total  Occurrences 7  0.00  % 

Total  Boardings 8 

Figure  B.45  Violation  Summary  by  Vessel  Year. 
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TABLE  3 
FIGURE  -  PROGRAM  CORRESPONDENCE 


FIGURE  NUMBER 

REPORT  NAME 

B.l 

boarding 

B.2 

bomajor 

B.3 

bominor 

B.4 

boqprn 

B.5 

cmerpt 

B.6 

daynight 

B.7 

epicrpt 

B.8 

epicsum 

B.9 

immedsar 

B.10 

intelsum 

B.ll 

operator 

B.12 

opervsls 

B.13 

opqprn 

B.14 

owners 

B.15 

ownvsls 

B.16 

owqprn 

B.17 

perintel 

B.18 

perqprn 

B.19 

pintqprn 

B.20 

sar 

B.21 

sardates 

B.22 

sardays 

B.23 

sarmajor 

B.24 

sarminor 

B.46 

sarqprn 

B.26 

sarsmbt 

B.27 

sartimes 

B.28 

smboatrpt 

B.29 

stolesum 

B.30 

unsfreq 

B.31 

vconstmo 

B.32 

vengmo 

B.33 

vessel 

B.34 

vfuelmo 

B.35 

vhullmo 

B.36 
B.37 

vintqprn 
violfreq 

B.38 

vlenftmo 

B.39 

vpropmo 

B.40 

vsloper 

B.41 

vslowner 

B.42 

vslqprn 

B.43 

vtypemo 

B.44 

vusemo 

B.45 

vyearmo 
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var 


APPENDIX  C 
SARELTIS  PHYSICAL  STRUCTURE 

The  physical  structure   of  SARELTIS  is  presented  in  this  appendix  through 
ous  types  of  database  documentation.  This  documentation  includes  the  following: 
Menu  Hierarchy  Charts  (Figure  C.l  through  Figure  C.ll) 
A  listing  of  all  current  Tables 
A  listing  of  all  current  Report  Formats 
A  listing  of  all  current  Entry/Edit  Forms 
Database  Table  Compositions 
A  listing  of  Reports  and  Associated  Tables 
A  listing  of  Database  Attributes  sorted  by  Attribute  Name 
A  listing  of  Database  Attributes  sorted  by  Input  Source 
A  listing  of  Database  Attributes  sorted  by  Program  Where  Used 
A  listing  of  Variables  sorted  by  Variable  Name 
A  listing  of  Variables  sorted  by  Program  Where  Used 
A  listing  of  the  Data  Entry  /  Edit  Rules 
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1.6 
ADHOC 
QUERIES 

1.0 

SARELTIS 

MASTER 

PROGRAM 

1.4 

REPORTS 

MASTER 

MENU 

1.2 

MODIFY 

MASTER 

MENU 

Figure  C.l     SARELTIS  Menu  Ilierarchv  Chart. 
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1.18 

RETURN  TO 

SARELTIS 

MASTER  PROGRAM 

1.17 

INPUT  PERSONNEL 

INTELLIGENCE 

1.16 
INPUT  VESSEL 
INTELLIGENCE 

1.15 

INPUT  ADDTIONAL 

VESSEL  OWNERS 

1.1 

INPUT 

MASTER 

MENU 

1.14 

INPUT 

BOARDING  INFO 

1.13 

INPUT  MULTIPLE 

SAR  UNITS 

1.12 
INPUT  SAR  INFO 
WITH  BOARDING 

1.11 
INPUT SAR INFO 
(NO  BOARDING) 

Figure  C.2     Input  Menu  Hierarchy  Chart. 
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1.28 

RETURN  TO 

SARELTIS 

MASTER  PROGRAM 

1.27 

MODIFY 

PERSONNEL 

INTELLIGENCE 

1.26 

MODIFY 

VESSEL 

INTELLIGENCE 

1.25 

MODIFY  SAR  UNIT 

INFORMATION 

1.2 

MODIFY 

MASTER 

MENU 

1.24 
MODIFY  OWNER/ 
OPERATOR  INFO 

- 

1.23 

MODIFY  VESSEL 

INFORMATION 

• 

1.22 

MODIFY  BOARDING 

INFORMATION 

1.21 

MODIFY  SAR 

INFORMATION 

Figure  C.3     iModify  Menu  Hierarchy  Chart. 


1 12 


• 

1.33 

RETURN  TO 

SARELTIS 

MASTER  PROGRAM 

- 

1.3 

QUERY 

MASTER 

MENU 

1.32      . 
PERSONNEL 
QUERY 

■ 

1.31 
VESSEL 
QUERY 

Figure  C.4    Query  Menu  Hierarchy  Chart. 
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5 

< 

lO 

O 

Z 

LTIS 

ROGR 

^ 

oc 

LU     Q. 

*~ 

3 

-<   oc 

< 

2 

LU 

«r 

z 

LU 

— i 
_j 

LU 

z 

ORTS 
MENU 

»~ 

REP 
SUB- 

Figure  C.5     Reports  Master  Menu  Hierarchy  Chart. 
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1.414 

RETURN  TO 

REPORTS  MENU 

- 

1.413 

PERSONNEL 

INTELLIGENCE 

SUMMARY 

1.41 

INTELLIGENCE 

REPORTS 

SUB-MENU 

1.412 

VESSEL  PROFILE 

FOR  VIOLATIONS 

ANALYSIS 

1.411 

VESSEL 

INTELLIGENCE 

SUMMARY  (EPIC) 

Figure  C.6     Intelligence  Reports  Menu  Hierarchy  Chart. 


1 15 


1.428 

RETURN  TO 

REPORTS  MENU 

1.427 

BOARDING  TIME 

OF  DAY 

ANALYSIS 

1.426 

SMALL  BOAT 

OPAREA  — 

BOARDING 

ANALYSIS 

1.425 

SMALL  SCALE 

AREA  — BOARDING 

ANALYSIS 

1.42 

BOARDING 

REPORTS 

SUB-MENU 

1.424 

LARGE  SCALE 

AREA  — BOARDING 

ANALYSIS 

1.423 
CMEDECAL     . 
ANALYSIS 

1.422 

BOARDINGS 

SUMMARY 

LISTING 

1.421 
VIOLATION/ 

t NSAFE  CONDITION 
ANALYSIS 

Figure  C.7 


Boarding  Reports  Menu  Hierarchy  Chart. 
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1.439 

RETURN  TO 

REPORTS  MENU 

1.438 

SAR  TIME 

OF  DAY 

ANALYSIS 

1.437 

SAR  DATES, 

MONTHS,  AND 

YEAR  ANALYSIS 

1.436 

SAR  CASE 

OPERATIONAL 

TIME  EXPENDED 

1.43 

SAR 

REPORTS 

SUB-MENU 

1.435 

SAR  TABLE 

SUMMARY 

LISTING 

1.434 

SMALL  BOAT 

OPAREA  — 

SAR  CASE 

ANALYSIS 

- 

1.433 

LARGE  SCALE 

AREA  — SAR  CASE 

ANALYSIS 

1.432 

SMALL  SCALE 

AREA  — SAR  CASE 

ANALYSIS 

- 

1.431 

IMMEDIATE 

SAR  CASE 

ANALYSIS 

Figure  C.8     SAR  Reports  Menu  Hierarchy  Chart. 


II7 


1.442 

OWNERS  OF 

SPECIFIC  VESSELS 

LISTING 

1441 

VESSEL 

SUMMARY 

LISTING 

■ 

Figure  C.9    Vessel  Reports  Menu  Hierarchy  Chart. 
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Figure  CIO     Personnel  Reports  Menu  Hierarchy  Chart. 
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1.55 

RETURN  TO 

SARELTIS 

MASTER  PROGRAM 

1.54 

RESTORE 

SARELTIS 

DATABASE 

1.5 

UTILITIES 

MASTER 

MENU 

1.53 

BACKUP 

SARELTIS 

DATABASE 

1.52 

PACK 

SARELTIS 

DATABASE 

1.51 

INITIALIZE 

SARELTIS 

DATABASE 

- 

Figure  C.  1 1     Utilities  Menu  Hierarchy  Chart. 
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US  COAST  GUARD  GROUP  MONTEREY 

SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 

INTELLIGENCE  SYSTEM  (SARELTIS)  DATABASE 


Tables 


BOARDING 
COLORS 
DAYS 
FORMS 

MINAREA 

OPVSL 

RULES 

STATES 

VIOLS 


BOATPROP 
CONSTR 

DISTRICT 

FUELCOMP 

NATIONS 

OWNERS 

REPORTS 

STATUS 

VSLINTEL 


BOATTYPE 

COURSES 

ENGCOMP 

HULLMAT 

OPERATOR 

OWVSL 

SAR 

VARDICT 


BOATUSE 

DATADICT 

EPIC 

MAJAREA 

OPOWN 

PERINTEL 

SARUNITS 

VESSEL 


Reports 


BOARDING 

CMERPT 

EPICSUM 

OPERVSLS 

OWQPRN 

SAR 

SARMINOR 

SMBOATRP 

VCONSTMO 

VHULLMO 

VPROPMO 

VTYPEMO 


BOMAJOR 

DATADICT 

IMMEDSAR 

OPQPRN 

PERINTEL 

SARDATES 

SARQPRN 

STOLESUM 

VENGMO 

VINTQPRN 

VSLOPER 

VUSEMO 


BOMINOR 

DAYNTGHT 

INTELSUM 

OWNERS 

PERQPRN 

SARDAYS 

SARSMBT 

UNSFREQ 

VESSEL 

VIOLFREO 

VSLOWNER 

VYEARMO 


BOQPRN 

EPICRPT 

OPERATOR 

OWNVSLS 

PINTQPRN 

SARMAJOR 

SARTIMES 

VARDICT 

VFUELMO 

VLENFTMO 

VSLQPRN 


Forms 


BOMOD1 

CG4100A1 

CG4100A5 

CG4100A9 

MINAREA 

OWNQUERY 

PERQUERl 

SARFORM1 

SARFORM5 

SARFORM9 

SUNITMOD 

VINTQUER 

VSLQUERY 


BOMOD2 

CG4100A2 

CG4100A6 

DATADICT 

OPERMOD1 

OWNRMOD1 

PERQUER2 

SARFORM2 

SARFORM6 

SARMOD 

VARDICT 

VIOLS 


BOMOD3 

CG4100A3 

CG4100A7 

HINQUERY 

OPERMOD2 

OWNRMOD2 

PINTFORM 

SARFORM3 

SARFORM7 

SARQUERY 

VHINFORM 

VSLMOD1 


BRDQUERY 

CG4100A4 

CG4100A8 

MAJAREA 

OPOUERY 

OWOPFORM 

PINTQUER 

SARFORM4 

SARFORM8 

SBDFORM1 

VINTFORM 

VSLMOD2 
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Composition  of  Database  Tables 


Table:  datadict 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 


#  Name  Type 

1  attname  TEXT 

2  relname  TEXT 

3  type  TEXT 

4  length  TEXT 

5  attdesc  TEXT 

6  source  TEXT 


Length         Key 
8  characters  yes 
8  characters  yes 
7  characters 
3  characters 
40  characters 
15  characters 


Table:  operator 
Read  Password:  NO 
Modify  Password:  NO 


Column  def 

#  Name 

1  oplname 

2  op f name 

3  opmi 

4  opaddr 

5  opcity 

6  opstate 

7  opzip 

8  opteino 

9  opdob 

10  opcourse 

11  opid 


initions 

T§CT 

Length 
20  charac 

TEXT 

15 

charac 

TEXT 

1 

charac 

TEXT 

25 

charac 

TEXT 

18 

charac 

TEXT 

2 

charac 

TEXT 

9 

charac 

TEXT 

12 

charac 

DATE 

1 

value( 

TEXT 

1 

charac 

INTEGER 

1 

value( 

Key 

ters  yes 

ters  yes 

ters 

ters 

ters 

ters 

ters 

ters 

s)    yes 

ters 

s)    yes 


Table:  opvsl 
Read  Password:  NO 
Modify  Password:  NO 

Column  definitions 
#  Name     Type 

1  vhinoper  TEXT 

2  idoper    INTEGER 


Length         Key 

12  characters  yes 

1  value( s)    yes 


Table:  owners 
Read  Password:  NO 
Modify  Password:  NO 


Column  def: 

initions 

# 

Name 

tSkt 

Length 

Key 

1 

ownlname 

20 

characters 

yes 

2 

ownfname 

TEXT 

15 

characters 

yes 

3 

ownmi 

TEXT 

1 

characters 

4 

ownaddr 

TEXT 

25 

characters 

5 

owncity 
ownstate 

TEXT 

18 

characters 

6 

TEXT 

2 

characters 

7 

ownzip 
owntelno 

TEXT 

9 

characters 

8 

TEXT 

12 

characters 

9 

owndob 

DATE 

1 

value(  s) 

yes 

10 

ownid 

INTEGER 

1 

value(  s) 

yes 
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Table:  owvsl 
Read  Password:  NO 
Modify  Password:  NO 

Column  definitions 
#  Name     TYPe 

1  vhinown  TEXT 

2  i downer   INTEGER 


Length         Key 

12  characters  yes 

1  value( s)    yes 


Table:  perintel 
Read  Password:  NO 
Modify  Password:  NO 


Column  defi 
#  Name 

1  intlname 

2  intdob 

3  pintreml 

4  pintrem2 

5  pintrem3 

6  pintdate 

7  intfname 

8  intmi 


nitions 

TEXT 
DATE 
TEXT 
TEXT 
TEXT 
DATE 
TEXT 
TEXT 


Length         Key 
20  characters  yes 

1  value( s)    yes 
70  characters 
70  characters 
70  characters 

1  value(  s) 
15  characters 

1  characters 


Table:  sar 

Read  Password:  NO 

Modify  Password:  NO 


Column  def: 

Lnitions 

# 

Name 

T§XT 

Length 

Key 

1 

folderno 

7 

characters 

yes 

2 

ucn 

TEXT 

3 

characters 

yes 

3 

mucn 

TEXT 

8 

characters 

4 

sardate 

DATE 

1 

value( s) 

yes 

5 

sarday 

TEXT 

3 

characters 

6 

sartime 

TIME 

1 

value(  s) 

7 

ssunrise 

TIME 

1 

value(  s ) 

8 

ssunset 

TIME 

1 

value( s) 

9 

sarnod 

TEXT 

25 

characters 

10 

sarpob 

INTEGER 

1 

value( s) 

11 

sarvhin 

TEXT 

12 

characters 

yes 

12 

sarlat 

REAL 

1 

value( s) 

13 

sarlong 

REAL 

1 

value  s ) 

14 

offshore 

INTEGER 

1 

value( s) 

15 

immedsar 

TEXT 

1 

characters 

16 

winddir 

INTEGER 

1 

value(  s) 

Column  def: 

Lnitions 

# 

Name 

INTEGER 

Length 

Key 

17 

windspd 

1 

value( s) 

18 

visdist 

INTEGER 

1 

value( s) 

19 

clouds 

INTEGER 

1 

value  s ) 

20 

ceiling 

INTEGER 

1 

value  s ) 

21 

seas 

INTEGER 

1 

value  s ) 

22 

swells 

INTEGER 

1 

valuei s) 
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Table:  vslintel 
Read  Password:  NO 
Modify  Password:  NO 

Column  definitions 
#  Name     Type 

1  intvname  TEXT 

2  intdate   DATE 

3  epiccode  TEXT 

4  stolen    TEXT 

5  vremarkl  TEXT 

6  vremark2  TEXT 

7  vremark3  TEXT 


Length         Key 
17  characters  yes 
1  value(  s) 
1  characters 
1  characters 
70  characters 
70  characters 
70  characters 


Table:  vessel 
Read  Password:  NO 
Modify  Password:  NO 


Column  defi 

#  Name 

1  vslno 

2  vslname 

3  vslhin 

4  vslmake 

5  vslmodel 

6  vslyear 

7  vsltons 

8  vsllenft 

9  vsllenin 

10  vslhp 

11  vsluse 

12  vsltype 

13  vslprop 

14  vslhull 

15  vsleng 

16  vslfuel 

Column  defi 

#  Name 

17  vslconst 

18  cmedecal 

19  cmeyear 

20  vsloffno 

21  homeport 

22  vslcall 

23  vslvalue 

24  vslsuper 

25  vslmasts 

26  sailno 

27  hlcolor 

28  trcolor 

29  slcolor 

30  cbcolor 

31  dkcolor 

32  vslmarks 


nitions 
Type 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

INTEGER 

INTEGER 

INTEGER 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

nitions 

Type 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

DOLLAR 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 


Length 

8  charac 

17  charac 

12  charac 

10  charac 

10  charac 

4  charac 

1  value( 

1  value( 

1  vaiue( 
3  charac 

2  charac 
2  charac 
1  charac 
1  charac 
1  charac 
1  charac 


Key 

ters 

ters  yes 

ters  yes 

ters 

ters 

ters 

s) 

s ) 

s ) 

ters 

ters 

ters 

ters 

ters 

ters 

ters 


Length 

1  characters 

1  characters 

4  characters 

10  characters 

25  characters 

12  characters 

1  value(  s) 
12  characters 
1  characters. 
8  characters 
3  characters 
3  characters 
3  characters 
3  characters 
3  characters 
40  characters 


Key 
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Table:  boarding 
Read  Password:  NO 
Modify  Password:  NO 


Column  def: 

Lnitions 

# 

Name 

dX?e 

Length 

1 

bodate 

1 

valuec  s ) 

2 

botime 

TIME 

1 

value( s) 

3 

bono 

TEXT 

7 

characters 

4 

vslpob 
adultpfd 

INTEGER 

1 

value(  s) 

5 

INTEGER 

1 

value( s] 

6 

childpfd 
owstatus 

INTEGER 

1 

value(  s) 

7 

TEXT 

1 

characters 

8 

obsbody 

TEXT 

15 

characters 

9 

obscount 

TEXT 

15 

characters 

10 

obscity 

TEXT 

13 

characters 

11 

obsstare 

TEXT 

2 

characters 

12 

obslat 

REAL 

1 

value( s) 
value ( s) 

13 

obslong 

REAL 

1 

14 

viol54 

TEXT 

1 

characters 

15 

viol55 

TEXT 

1 

characters 

16 

vio!56 

TEXT 

1 

characters 

Column  def: 

Lnitions 

# 

Name 

Type 

Length 

17 

viol57 

TEXT 

i 

characters 

18 

viol58 

TEXT 

1 

characters 

19 

viol59 

TEXT 

1 

characters 

20 

viol60 

TEXT 

1 

characters 

21 

viol61 

TEXT 

1 

characters 

22 

viol62 

TEXT 

1 

characters 

23 

viol63 

TEXT 

1 

characters 

24 

viol64 

TEXT 

1 

characters 

25 

viol65 

TEXT 

1 

characters 

26 

viol66 

TEXT 

1 

characters 

27 

viol67 

TEXT 

1 

characters 

28 

viol68 

TEXT 

1 

characters 

29 

uns69 

TEXT 

1 

characters 

30 

uns70 

TEXT 

1 

characters 

31 

uns71 

TEXT 

1 

characters 

32 

uns72 

TEXT 

1 

characters 

Column  def: 

initions 

§ 

Name 

TEXT 

Length 

33 

uns73 

i 

characters 

34 

uns74 

TEXT 

i 

characters 

35 

uns75 

TEXT 

i 

characters 

36 

uns76 

TEXT 

i 

characters 

37 

uns77 

TEXT 

i 

characters 

38 

uns78 

TEXT 

i 

characters 

39 

uns79 

TEXT 

i 

characters 

40 

boreml 

TEXT 

70 

characters 

41 

borem2 

TEXT 

70 

characters 

42 

borem3 

TEXT 

70 

characters 

43 

boname 

TEXT 

25 

characters 

44 

borate 

TEXT 

5 

characters 

45 

bounit 

TEXT 

25 

characters 

46 

bodist 

TEXT 

2 

characters 

47 

boopf ac 

TEXT 

5 

characters 

48 

boday 

TEXT 

3 

characters 

Column  def 

initions 

# 

Name 

t¥8e 

Length 

49 

bsunrise 

1 

value(  s) 
value(  s) 

50 

bsunset 

TIME 

1 

51 

bovhin 

TEXT 

12 

characters 

52 

weapons 

INTEGER 

1 

value( s) 

Key 


yes 


Key 


Key 


Key 


yes 
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Table:  forms 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

#  Name     Type  Length         Key 

1  fname    TEXT  8  characters  yes 

2  fdata    TEXT  80  characters 


Table:  reports 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

#  Name     TYPe  Length         Key 

1  rname    TEXT  8  characters  yes 

2  rdata     TEXT  132  characters 


Table:  states 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

#  Name     Type     Length         Key 

1  abbrev   TEXT       2  characters  yes 


Table:  colors 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

#  Name    '  Type  Length         Key 

1  shade    TEXT  3  characters  yes 

2  clrdesc   TEXT  20  characters 


Table:  days 

Read  Password:  NO 

Modify  Password:  YES 

Column  definitions 

#  Name     Tvpe     Length         Key 

1  dayabbr  TEXT       3  characters  yes 


Table:  constr 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

#  Name     TYPe     Length         Key 


1  constype  TEXT       1  characters  yes 

2  consdesc  TEXT      10  characters 


Table:  engcomp 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

#  Name     TYPe  Length         Key 

1  ecomptyp  TEXT  1  characters  yes 

2  ecompdes  TEXT  10  characters 
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Table:  fuelcomp 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

#  Name      TYPe  Length         Key 

1  fcomptyp  TEXT  1  characters  yes 

2  fcompdes  TEXT  10  characters 


Table:  hullmat 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

#  Name     TYPe  Length         Key 

1  hmattype  TEXT  1  characters  yes 

2  hmatdesc  TEXT  15  characters 


Table:  boattype 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

#  Name      TYPe      Length         Key 

1  vtype    TEXT       2  characters  yes 

2  vtypedes  TEXT       15  characters 

Table:  boatuse 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

#  Name     Type     Length         Key 

1  vuse     TEXT       2  characters  yes 

2  vusedesc  TEXT      15  characters 


Table:  boatprop 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

#  Name     -YPe  Length         Key 

1  proptype  TEXT  1  characters  yes 

2  propdesc  TEXT  15  characters 


Table:  status 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

#  Name      TYPe  Length         Key 

1  ostattyp  TEXT  1  characters  yes 

2  ostatdes  TEXT  30  characters 
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Table:  courses 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 
#  Name     Type 

1  coursetp  TEXT 

2  coursede  TEXT 


Length         Key 
1  characters  yes 
15  characters 


Table:  ma j area 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 


#  Name      Type 

1  ma j grid  TEXT 

2  ma] north  REAL 

3  ma j  south  REAL 

4  ma] east   REAL 

5  majwest   REAL 


Length  Key 
2  characters  yes 
1  value(  s' 
1  valuef  s 
1  value  s 
1  value( s 


Table:  nations 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 
#  Name      Type 

1  symbol    TEXT 

2  registry  TEXT 


Length         Key 
2  characters  yes 
30  characters 


Table:  minarea 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 


#  Name     Type 

1  mingrid   TEXT 

2  minnorth  REAL 

3  minsouth  REAL 

4  mineast   REAL 

5  minwest   REAL 


Length  Key 
2  characters  yes 
1  value(  s' 
1  value( s 
1  value(  s 
1  value( s 


Table:  epic 

Read  Password:  NO 

Modify  Password:  YES 

Column  definitions 
#  Name     Tvpe 

1  epicno    TEXT 

2  epicdscl  TEXT 

3  epicdsc2  TEXT 

4  epicdsc3  TEXT 

5  epicdsc4  TEXT 


Length         Key 
1  characters  yes 
70  characters 
70  characters 
70  characters 
70  characters 
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Table:  rules 
Read  Password:  NO 
Modify  Password:  YES 


Column  defi 
#  Name 

1  numrule 

2  and/or 

3  colnamel 

4  tablel 

5  boolean 

6  colname2 

7  table2 

8  rulvalue 


nitions 

INTEGER 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 


Length 

1  value( s) 

4  characters 
8  characters 
8  characters 
4  characters 
8  characters 
8  characters 
40  characters 


Key 


Table:  district 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 
#  Name      Type 

1  distno   TEXT 

2  distdesc  TEXT 


Length 

2  characters 
35  characters 


Key 


Table:  sarunits 
Read  Password:  NO 
Modify  Password:  NO 


Column  defi 

#  Name 

1  foldno 

2  unitname 

3  uwtime 

4  uwdate 

5  oseta 

6  etadate 

7  ostime 

8  osdate 

9  alngtime 

10  alngdate 

11  towtime 

12  towdate 

13  dvmoored 

14  dvmdate 

15  sutmoor 

16  sutdate 


nitions 

tSkt 

TEXT 
TIME 
DATE 
TIME 
DATE 
TIME 
DATE 
TIME 
DATE 
TIME 
DATE 
TIME 
DATE 
TIME 
DATE 


Length         Key 
7  characters  yes 
25  characters 
1  value( s 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


valuei 
valuei 
valuei 
valuei 
valuei 
valuei 
valuei 
valuei 
valuei 
valuei 
valuei 
valuei 
valuei 


s 

s 
s 
s 

s 
s 
s 
s 
s 
s 
s 
s 
s 


Table:  viols 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 
#  Name      Type 

1  violno   TEXT 

2  violdesc  TEXT 


Length         Key 
2  characters 
40  characters 


129 


Table:  opown 
Read  Password:  NO 
Modify  Password:  NO 

Column  definitions 

#  Name     Type  Length         Key 

1  ownno     INTEGER  1  value(s) 

2  opno      INTEGER  1  value(s) 


Table:  vardict 
Read  Password:  NO 
Modify  Password:  YES 

Column  definitions 

#  Name     Type  Length         Key 

1  varname   TEXT  8  characters  yes 

2  vartype   TEXT  8  characters 

3  varuse   TEXT  12  characters  yes 

4  vardesc   TEXT  25  characters 
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Report  Format  and  Associated  Table 


REPORT  NAME 

BOARDING 

BOMAJOR 

BOMINOR 

BOOPRN 

CMERPT 

DATADICT 

DAYNIGHT 

EPICRPT 

EPICSUM 

IMMEDSAR 

INTELSUM 

OPERATOR 

OPERVSLS 

OPQPRN 

OWNERS 

OWNVSLS 

OWQPRN 

PERINTEL 

PEROPRN 

PINTQPRN 

SAR 

SARDATES 

SARDAYS 

SARMAJOR 

S  ARM  I  NOR 

SAROPRN 

SARStVfBT 

SARTIMES 

SMBOATRP 

STOLESUM 

UNSFREO 

VARDICT 

VCONSTMO 

VENGMO 

VESSEL 

VFUELMO 

VHULLMO 

VINTQPRN 

VIOLFREO 

VLENFTMO 

VPROPMO 

VSLOPER 

VSLOWNER 

VSLQPRN 

VTYPEMO 

VUSEMO 

VYEARMO 


ASSOCIATED  TABLE 

BOSUM 

POSITFRQ 

POSITFRQ 

BOHIS 

TEMP 

DATADICT 

TEMP 

EPICTMP 

EPICSUM 

TEMP 

INTELSUM 

OPSUM2 

OPERVSLS 

TEMP 

OWNSUM2 

OWNVSLS 

TEMP 

PERSUM 

TEMP 

PERINT 

SARSUM 

SARSTAT 

TEMP 

POSITFRQ 

POSITFRQ 

SARHIS 

TEMP 

TEMP 

TEMP 

STOLESUM 

TEMP 

VARDICT 

SUMMARY3 

SUMMARY4 

VSLSUM 

SUMMARY5 

SUMMARY6 

VSLINT 

TEMP 

TEMP 

SUMMARY7 

OPERVSLS 

OWNVSLS 

TEMP 

SUMMARY1 

SUMMARY2 

TEMP 
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Database  Attributes  Sorted  by  Attribute  Name 


AttName   RelName   Type   Len 


Attribute  Description 


abbrev 
adultpfd 

alngdate 
alngtime 


and/or 
attdesc 
attname 
bodate 


boday 

bodist 

boname 

bono 


boolean 
boopfac 

borate 
boreml 
borem2 
borem3 
botime 

bounit 
bovhin 

bsunrise 
bsunset 


states 

boarding 

bosum 

sartime3 

sartime4 

sarunits 

sartime3 

sartime4 

sarunits 

rules 

datadict 

datadict 

boarding 

bohis 

bosum 

violsum 

boarding 

bosum 

boarding 

bosum 

boarding 

bohis 

bosum 

boarding 

bohis 

bosum 

bovslsum 

frqchart 

violsum- 

vslmo 

rules 

boarding 

bosum 

boarding 

bohis 

bosum 

boarding 

bohis 

bosum 

boarding 

bohis 

bosum 

boarding 

bohis 

bosum 

boarding 

bohis 

bosum 

bosum 

boarding 

bosum 

boarding 

bohis 

bosum 

bovslsum 

violsum 

boarding 

bosum 

boarding 

bosum 


text    2 
integer 

date 


time 


text 
text 
text 
date 


text 
text 
text 

text 


text 
text 

text 
text 
text 

text 
time 

text 
text 

time 
time 


4 

40 
8 


3 
2 
25 


4 

5 

5 

70 
70 
70 


25 
12 


state  abbreviation 

number  of  adult  pfd's  on  board 

date  alongside  distressed  vessel 
alongside  time  of  sar  unit 


and/or  conjunction  in  editting  rules 
attribute  description 
data  dictionary  attribute  name 
date  of  boarding 


boarding  day  of  week 
boarding  offcier  district 
boarding  officer  name 

boarding  report  number 


boolean  conjunction  used  in  edit  rule 
boarding  unit  operating  facility  code 

boarding  officer  rank/rate 
boarding  officer  remarks 
boarding  officer  remarks 
boarding  officer  remarks 
time  of  boarding 

boarding  officer  unit 

vessel  hull  identification  number 


time  of  sunrise 
time  of  sunset 
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AttName   RelName   Type   Len 


Attribute  Description 
vessel  cabin  color 


cbcolor 


ceiling 

childpfd 

clouds 

clrdesc 
cmedecal 


cmeyear 


colnamel 

colname2 

consdesc 

constdes 

constype 

counter 

coursede 

coursetp 

dayabbr 

descprop 

distdesc 

distno 

dkcolor' 


dvmdate 

dvmoored 

ecnumber 

ecompdes 

ecomptyp 

ecpct 

engdesc 


opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

sar 

sarsum 

boarding 

bosum 

sar 

sarsum 

colors 

bovslsum 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

bovslsum 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

rules 

rules 

constr 

summary3 

constr 

summaryl 

courses 

courses 

days 

summary6 

district 

district 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

sartime5 

sarunits 

sartime5 

sarunits 

epictmp 

engcomp 

engcomp 

epictmp 

summary4 


text 


integer 

integer 

integer 

text 
text 


text 


text 

text 

text. 

text 

text 

integer 

text 

text 

text 

text 

text 

text 

text 


20 
1 


8 
8 

10 
10 

1 

15 

1 

3 

15 

35 

2 

3 


date 

time 

integer 

text 

text 

real 

text 


10 
1 

10 


on  scene  ceiling  in  feet 

number  of  child  pfd's  on  board 

on  scene  cloud  coverage  in  tenths 

color  abbreviation  description 
y  or  n  for  erne  decal  displayed 


year  of  erne  decal  displayed 


column  name  used  in  editting  rule 

column  used  in  editting  rule 

vessel  construction  code  description 

vessel  construction  code  description 

vessel  construction  code 

vessel  type  counter 

course  description 

course  type  code 

day  abbreviation 

vessel  propulsion  description 

district  number  description 

district  number  code 

vessel  deck  color 


date  distressed  vessel  moored 

time  distressed  vessel  moored 

count  of  total  epic  codes 
vessel  engine  compartment  description 
vessel  engine  compartment  code 
individual  epic  code  percentage 
vessel  engine  compartment  description 
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AttName 
epiccode 

epicdscl 
epicdsc2 
epicdsc3 
epicdsc4 
epicno 


etadate 

fcompdes 

fcomptyp 

fdata 

fname 

folderno 


foldno 


RelName   Type   Len 


Attribute  Description 


freqcnt 

fueldesc 
gridpct 

hlcolor 


hmatdesc 
hmattype 
homeport 


hulldesc 
idoper 


epicsum 

epictmpl 

vslint 

vslintel 

epic 

epictmp 

epictmp2 

epic 

epictmp 

epictmp2 

epic 

epictmp 

epictmp2 

epic 

epictmp 

epictmp2 

epic 

epictmp 

epictmp2 

sarunits 

fuelcomp 

fuelcomp 

forms 

forms 

sar 

sarhis 

sarsum 

sarsuml 

sartimel 

sartime2 

sartime3 

sartime4 

sartime5 

sarunits 

positfrq 

positfrq 

summary? 

positfrq 

positfrq 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

hullmat 

hullmat 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

summary 6 

opvsl 

opvslsl 

opvsls2 

pvsljoin 

vslsopr 


text 

text 
text 
text 
text 
text 


date 
text 
text 
text 
text 
text 


text 


70 
70 
70 
70 
1 


10 

1 

80 

8 

7 


integer 


text 

real 

10 

text 

3 

text    15 
text    1 
text    25 


text    15 
integer 


epic  code 


description  of  epic  code 
epic  code  description 
epic  code  description 
epic  code  description 


epic  code  number 


date  of  estimated  arrival 

vessel  fuel  compartment  description 

vessel  fuel  compartment  code 

forms  data 

form  name 

sar  folder  number 


sar  folder  number 


major  grid  counter 

vessel  fuel  compartment  description 
major  grid  percentage 

vessel  hull  color 


vessel  hull  material  description 
vessel  hull  material  code 
vessel  homeport 


vessel  hull  material  description 
operator  identification  number  (system) 
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AttName 
idowner 

immedsar 

intdate 

in  t  dob 
intfname 
intlname 
intmi 


intvdate 
intvname 


length 
majeast 

majgrid 

ma j north 

ma j south 

majwest 

mineast 

mingrid 

minnorth 

minsouth 

minwest 

mucn 


numconst 

numeng 

numfuel 

numhull 

numprop 

numrule 

numuse 


RelName   Type   Len 


Attribute  Description 
owner  identification  number  (system) 

y  or  n  vessel  in  immediate  danger 
date  intelligence  received/entered 

date  of  birth  of  person 
first  name  of  person 
last  name  of  person 
middle  initial  of  person 


date  intelligence  received/entered 
vessel  name 


data  dictionary  attribute  length 
eastern  bound  of  major  grid 

designation  of  major  grid  area 

northern  bound  of  major  grid 

southern  bound  of  major  grid 

western  bound  of  major  area 

eastern  bound  of  minor  grid 

designation  of  minor  grid  area 

northern  bound  of  minor  grid 

southern  bound  of  minor  grid 

western  bound  of  minor  grid 

multi-unit  case  number 


vessel  construction  counter 
vessel  engine  compartment  counter 
vessel  fuel  compartment  counter 
vessel  hull  material  counter 
vessel  propulsion  counter 
number  of  input  editting  rule 
vessel  use  counter 


ownvslsl 

ownvsls2 

owvsl 

vslsown 

wvsljoin 

sar 

sarhis 

sarsum 

sarsum 

epicsum 

epictmpl 

stolesum 

vslint 

vslintel 

perint 

perintel 

oersum 

perint 

perintel 

persum 

perint 

perintel 

persum 

perint 

perintel 

persum 

intelsum 

epicsum 

intelsum 

stolesum 

vslint 

vslintel 

datadict 

majarea 

positfrq 

majarea 

positfrq 

majarea 

positfrq 

majarea 

positfrq 

majarea 

positfrq 

minarea 

positfrq 

minarea 

positfrq 

minarea 

positfrq 

minarea 

positfrq 

minarea 

positfrq 

sar 

sarhis 

sarsum 

summary3 

summary4 

summary5 

summary6 

summary7 

rules 

summary2 


integer 

text    1 
date 

date 
text 
text 
text 


date 
text 


text 
real 

text 

real 

real 

real 

real 

text 

real 

real 

real 

text 


integer 
integer 
integer 
integer 
integer 
integer 
integer 


15 
20 

1 

17 

3 
2 


a 
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AttName 

obsbody 

obscity 

obscount 

obslat 

obslong 

obsstate 
offshore 

opaddr 


RelName   Type   Len 


Attribute  Description 

text    15  body  of  water  that  boarding  occurred 

text    13  city  that  boarding  occurred 

text    15  county  that  boarding  occurred 

real    2.3  latitude  where  boarding  occurred 

real    3.3  longitude  where  boarding  occurred 

text    2  coded  state  abbrev  that  boarding  occurs 

integer  distance  in  nm  offshore 

text    25  operator  street  address 


opcity 


opcourse 


op  dob 


op f name 


opid 


oplname 


opmi 


opno 


boarding 

bosum 

boarding 

bosum 

boarding 

bosum 

boarding 

bohis 

bosum 

boarding 

bohis 

bosum 

boarding 

bosum 

sar 

sarhis 

sarsum 

operator 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

opown 


text    18   operator  city  address 


text 


date 


integer 


text 


20 


text 


coded  operator  courses 


operator  date  of  birth 


text    15   operator  first  name 


operator  identification  number  (system) 


operator  last  name 


operator  middle  initial 


integer 


operator  identification  number  (system) 
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AttName 
opstate 


RelName   Type   Len 


Attribute  Description 
coded  operator  state  abbrev. 


optelno 


op  zip 


osdate 


oseta 
ostatdes 
ostattyp 
ostime 


ownaddr 


owncity 


owndob 


ownfname 


ownid 


ownlname 


operator 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

operator 

opervsls 

opsuml 

opsum2 

opvslsl 

opvsls2 

sartimel 

sartime4 

sarunits 

sarunits 

status 

status 

sartimel 

sartime4 

sarunits 

owners 

ownsuml 

ownsum2 

ownvsls 

ownvslsl 

ownvsls2 

owners 

ownsuml 

ownsum2 

ownvsls 

ownvslsl 

ownvsls2 

owners 

ownsuml 

ownsum2 

ownvsls 

ownvslsl 

ownvsls2 

owners 

ownsuml 

ownsum2 

ownvsls 

ownvslsl 

ownvsls2 

owners 

ownsuml 

ownsum2 

ownvslsl 

ownvsls 2 

owners 

ownsuml 

ownsum2 

ownvsls 

ownvslsl 

ownvsls2 


text 


text    12   operator  telephone  number 


text 


date 


time 
text 
text 
time 


text 


date 


operator  zip  code  address 


30 

1 


25 


date  on-scene 


on  scene  eta  of  sar  unit 
owner  status  description 
owner  status  code 
on  scene  time  of  sar  unit 


owner  street  address 


text    18 


owner  city  address 


owner  date  of  birth 


text    15   owner  first  name 


integer 


owner  identification  number  (system) 


text    20   owner  last  name 


137 


AttName 
ownmi 


RelName   Type   Len 


Attribute  Description 
owner  middle  initial 


ownno 
ownstate 


owntelno 


ownzip 


owstatus 

pctincr 
pintdate 


pintreml 


pintrem2 


pintrem3 


propdesc 

proptype 

rdata 

registry 

relname 

rname 

rulvalue 

sailno 


sardate 

sarday 
sarlat 


owners 

ownsuml 

ownsum2 

ownvsls 

ownvslsl 

ownvsls 2 

opown 

owners 

ownsuml 

ownsum2 

ownvsls 

ownvslsl 

ownvsls2 

owners 

ownsuml 

ownsum2 

ownvsls 

ownvslsl 

ownvsls 2 

owners 

ownsuml 

ownsum2 

ownvsls 

ownvslsl 

ownvsls2 

boarding 

bosum 

sarstat 

perint 

perintel 

persum 

perint 

perintel 

persum 

perint 

perintel 

persum 

perint 

perintel 

Eersum 
oatprop 
boatprop 
reports 
nations 
datadict 
reports 
rules 
opvsls2 
ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
sar 

sarhis 
sarsum 
sarsuml 
sar 

sarsum 
sarsuml 
sar 

sarhis 
sarsum 


text 


integer 
text 


owner  identification  number  (system) 
coded  owner  state  abbreviation  address 


text    12   owner  telephone  number 


text 


text 

real 
date 


text 


text 


date 

text 
real 


owner  zip  code  address 


coded  owner  status  at  time  of  boarding 

percentage  increase  in  sar  cases 
date  intelligence  received/entered 


text    70   intelligence  remarks  on  person 


70 


70 


text 

15 

text 

1 

text 

132 

text 

30 

text 

8 

text 

8 

text 

40 

text 

8 

intelligence  remarks  on  person 


intelligence  remarks  on  person 


vessel  propulsion  description 

vessel  propulsion  code 

report  data 

nation  description 

data  dictionary  relation  name 

report  name 

edit  error  message 

sail  number  of  vessel 


date  of  sar 


3 
2.3 


sar  day  of  week  abbreviated 
latitude  position  of  sar 
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AttName   RelName   Type   Len 


Attribute  Description 
longitude  position  of  sar 

sar  nature  of  distress 

number  of  sar  cases 

number  of  personnel  onboard 

time  sar  report  received 

vessel  hull  identification  number 


year  of  sar  case 

on  scene  sea  height  in  feet 

color  abbreviation 
vessel  sail  color 


sarlong 

sar 

sarhis 

sarsum 

real 

3.: 

sarnod 

sar 

sarhis 

sarsum 

text 

25 

sarnum 

sarstat 

integer 

sarpob 

sar 

sarhis 

sarsum 

integer 

sartime 

sar 

sarhis 

sarsum 

time 

sarvhin 

sar 

sarhis 

sarsum 

text 

12 

saryear 

sarstat 

text 

4 

seas 

sar 
sarsum 

integer 

shade 

colors 

text 

3 

slcolor 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

text 

3 

source 

datadict 

text 

15 

ssunrise 

sar 
sarsum 

time 

ssunset 

sar 
sarsum 

time 

stolen 

epicsum 
stolesum 

text 

1 

vslint 

vslintel 

sutdate 

sartime2 
sarunits 

date 

sutmoor 

sartime2 
sarunits 

time 

swells 

sar 
sarsum 

integer 

symbol 

nations 

text 

2 

tablel 

rules 

text 

8 

table2 

rules 

text 

8 

tmp 

temp 
sartime5 

text 

2 

towdate 

date 

sarunits 

tow time 

sartime5 
sarunits 

time 

trcolor 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

text 

3 

type 

datadict 

text 

7 

typedesc 

summaryl 

text 

15 

ucn 

sar 
sarhis 

sarsum 

text 

8 

source  document 
time  of  sunrise 

time  of  sunset 

y  or  n  for  vessel  stolen 

date  sar  unit  moored/  returned 

time  sar  unit  moored 

on  scene  swell  height  in  feet 

nation  abbreviation 

table  used  in  editting  rule 

table  used  in  editting  rule 

attribute/relation  for  report  printing 

date  distressed  vessel  in  tow 

time  distressed  vessel  in  tow 

vessel  trim  color 


data  dictionary  attribute  type 
vessel  type  description 
unit  case  number 
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AttName   RelName   Type   Len 


Attribute  Description 


unitname 
uns69 


uns70 


uns71 


uns72 


uns73 


uns74 


uns7  5 


uns76 


uns77 


uns78 


uns79 


usedesc 
uwdate 


uwtime 


sarunits 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum • 

summary 2 

sartimel 

sartime2 

sartime3 

sarunits 

sartimel 

sartime2 

sartime3 

sarunits 


text    25   sar  unit  name 

text    1    ' X1  if  vessel  terminated 


text    1    ' X'  if  condition  corrected  on  the  spot 


text 


text 


text 


text 


text 


text 


X'  if  vessel  overloaded 


X1  if  fuel  in  bilges 


X'  if  fuel  leak 


text    1    ,X'  if  manifestly  unsafe  voyage 


X1  if  hazardous  bars  (13th  district) 


X1  if  operator  alcohol  condition 


X'  if  other  unsafe  condition 


text    1    'X1  if  warning  issued 


text    1    'X1  if  no  violations 


text    15   vessel  use  description 
date        sar  unit  underway  date 


time        underway  time  of  sar  unit 
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AttName 


RelName   Type   Len 


Attribute  Description 


vardesc 
varname 
vartype 
varusel 
vhinoper 


vhinown 


vio!54 


vio!55 


vio!56 


viol57 


vio!58 


vio!59 


vio!60 


viol61 


vio!62 


vio!63 


vardict 

vardict 

vardict 

vardict 

opvsl 

opvslsl 

opvsls2 

pvsljoin 

vslsopr 

ownvslsl 

ownvsls2 

owvsl 

vslsown 

wvsljoin 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 


text 


text 


text 


text 


text 


text 


text  25  attribute  represented  or  how  used 

text  8  name  of  variable 

text  8  type  of  variable 

text  12  where  the  variable  is  used 

text  12  vessel  hull  identification 


text    12   vessel  hull  identification  number 


text    1    'X'  if  numbering  violation 


X*  if  certificate  violation 


text    1    ' X1  if  pfd  violation 


X1  if  sound  producing  device  violation 


X'  if  bell  violation 


text    1    'X'  if  fire  extinguisher  violation 


X'  if  flame  control  violation 


X1  if  ventilation  violation 


text    1    'X'  if  navigation/anchor  Its.  violation 


X'  if  negligent  operation  violation 
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AttName 
viol64 

viol65 

viol66 

viol67 

viol68 


violdesc 

violno 

visdist 

vremarkl 


vremark2 
vremark3 
vslcall 


RelName   Type   Len 


Attribute  Description 
X1  if  failure  to  terminate  violation 


vslconst 


boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

boarding 

bohis 

bosum 

frqchart 

violsum 

viols 

viols 

sar 

sarsum 

intelsum 

vslint 

vslintel 

intelsum 

vslint 

vslintel 

intelsum 

vslint 

vslintel 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvslioin 

opvsls2 

ownvsls2 

pvsljoin 

summary3 

vessel 

violsum 

vslmo 

vslsum 

vslsuml 

vslsum2 

wvsljoin 


text  1 

text  1 

text  1 

text  1 

text  1 

text  40 

text  2 
integer 

text  70 

text  70 

text  70 

text  12 


text 


X1  if  pollution  placard  not  posted 


X'  if  marine  sanitation  device  violtn. 


X1  if  visual  distress  signal  violation 


X1  if  document/official  no.  violation 


violation  description 
violation  number 
visibility  distance 

vessel  intelligence  remarks 
vessel  intelligence  remarks 
vessel  intelligence  remarks 
vessel  call  sign 


coded  vessel  construction  type 
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AttName 
vsleng 


RelName   Type   Len 


Attribute  Description 
coded  vessel  engine  compartment  type 


vslfuel 


vslhin 


vslhp 


vslhull 


vsllenft 


opvsls2  text 

ownvsls2 

pvsljoin 

summary4 

vessel 

violsum 

vslmo 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

opvsls2  text 

ownvsls2 

pvsljoin 

summary5 

vessel 

violsum 

vslmo 

vslsum 

vslsuml 

vslsum2 

wvslioin 

bovslsum  text 

opervsls 

opvsls2 

ownvsls 

ownvsls2 

pvsljoin 

vessel 

violsum 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

opvsls2  text 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

opvsls2  text 

ownvsls2 

pvsljoin 

summary6 

vessel 

violsum 

vslmo 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

opvsls2  integer 

ownvsls2 

pvsljoin 

vessel 

violsum 

vslmo 

vslsum 

vslsuml 

vslsum2 

wvsljoin 


coded  vessel  fuel  compartment  type 


12   vessel  hull  identification  number 


vessel  horsepower 


coded  vessel  hull  material 


vessel  length  in  feet 
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AttName 
vsllenin 


RelName   Type   Len 


Attribute  Description 


vslmake 


vslmarks 


vslmasts 


vslmodel 


vslname 


vslno 


vsloffno 


opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

opervsls 

opvsls2 

ownvsls 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 


integer 


vessel  length  inches 


text    10   vessel  make 


text    40   vessel  unusual  markings 


text 


text 


text 


text 


number  of  masts  on  vessel 


10   vessel  model 


17   vessel  name 


8 


vessel  number 


text    10   vessel  official  number  (main  beam  no.) 
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AttName 
vslpob 

vslprop 


RelName   Type   Len 


Attribute  Description 


vslsuper 


vsltons 


vsltype 


vsluse 


vslvalue 


boarding 

bohis 

bosum 

opvsls2 

ownvsls2 

pvsljoin 

summary6 

vessel 

violsum 

vslmo 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

violsum 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

opvsls2 

ownvsls2 

pvsljoin 

summaryl 

vessel 

violsum 

vslmo 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

opvsls2 

ownvsls2 

pvsljoin 

summary 2 

vessel 

violsum 

vslmo 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

opvsls2 

ownvsls2 

pvsljoin 

vessel 

vslsum 

vslsuml 

vslsum2 

wvsljoin 


integer     number  of  personnel  on  board  vessel 
text    1    coded  vessel  propulsion  method 


text    12   vessel  superstructure 


integer 


vessel  net  tonnage 


text 


coded  vessel  type 


text 


coded  vessel  use 


dollar 


vessel  value 
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AttName 
vslyear 


RelName   Type   Len 


Attribute  Description 
vessel  model  year 


vtype 

vtypedes 

vuse 

vusedesc 

weapons 


winddir 
windspd 


opvsls2 

ownvsls2 

pvsljoin 

vessel 

violsum 

vslmo 

vslsum 

vslsuml 

vslsum2 

wvsljoin 

boattype 

boattype 

boatuse 

boatuse 

boarding 

bohis 

bosum 

violsum 

sar 

sarsum 

sar 

sarsum 


text 


text    2 
text    15 
text    2 
text    15 
integer 


integer 
integer 


vessel  type  code 
vessel  type  description 
vessel  use  code 
vessel  use  description 
number  of  weapons  on  board 


wind  direction 
wind  speed 
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Database  Attributes  Sorted  by  Input  Source 


Source 
4100 


AttName 

adultpfd 

bodate 

boday 

bodist 

boname 

bono 

boopfac 

borate 

boreml 

borem2 

borem3 

botime 

bounit 

bovhin 

bsunrise 

bsunset 

childpfd 

cmedecal 

cmevear 

obsbody 

obscity 

obscount 

obslat 

obslong 

obsstate 

opaddr 

opcity 

opcourse 

opdob 

op f name 

oplname 

opmi 

opstate 

optelno 

opzip 

ownaddr 

owncity 

owndob 

ownfname 

ownlname 

ownmi 

ownstate 

owntelno 

ownzip 

owstatus 

uns69 

uns70 

uns71 

uns72 

uns73 

uns74 

uns75 

uns76 

uns77 

uns78 

uns79 

vhinoper 

vhinown 

viol54 

viol55 

viol56 

viol57 

viol58 

viol59 

viol60 


RelName 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

vessel 

vessel 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

operator 

operator 

operator 

operator 

operator 

operator 

operator 

operator 

operator 

operator 

owners 

owners 

owners 

owners 

owners 

owners 

owners 

owners 

owners 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

opvsl 

owvsl 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 


_Type_ 

integer 

date 

text 

text 

text 

text 

text 

text 

text 

text 

text 

time 

text 

text 

time 

time 

integer 

text 

text 

text 

text 

text 

real 

real 

text 

text 

text 

text 

date 

text 

text 

text 

text 

text 

text 

text 

text 

date 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 


Len 


3 
2 

25 

7 

5 

5 

70 

70 

70 

25 

12 


1 

4 

15 

13 

15 

2.3 

3.3 

2 

25 

18 

1 

15 

20 

1 

2 

12 

9 

25 

18 

15 

20 

1 
2 

12 

9 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

12 

12 

1 

1 

1 

1 

1 

1 

1 


147 


Source 
4100 


designer 


AttName 

viol61 

viol62 

viol63 

viol64 

viol65 

viol66 

viol67 

viol68 

vslconst 

vsleng 

vslfuel 

vslhin 

vslhp 

vslhull 

vsllenft 

vsllenin 

vslmake 

vslmodel 

vslname 

vslno 

vslpob 

vslprop 

vsltons 

vsltype 

vsluse 

vslyear 

weapons 

abb rev 

and/or 

attdesc 

attname 

boolean 

clrdesc 

colnamel 

colname2 

consdesc 

constype 

coursede 

coursetp 

dayabbr 

distdesc 

distno 

ecompdes 

ecomptyp 

epicdscl 

epicdsc2 

epicdsc3 

epicdsc4 

epicno 

fcompdes 

fcomptyp 

fdata 

fname 

hmatdesc 

hmattype 

length 

majeast 

maqgrid 

maqnorth 

maq south 

majwest 

mineast 

mingrid 

minnorth 

minsouth 


RelName 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

boarding 

vessel 

vessel 

vessel 

vessel 

vessel 

vessel 

vessel 

vessel 

vessel 

vessel 

vessel 

vessel 

boarding 

vessel 

vessel 

vessel 

vessel 

vessel 

boarding 

states 

rules 

datadict 

datadict 

rules 

colors  . 

rules 

rules 

constr 

constr 

courses 

courses 

days 

district 

district 

engcomp 

engcomp 

epic 

epic 

epic 

epic 

epic 

fuelcomp 

fuelcomp 

forms 

forms 

hullmat 

hullmat 

datadict 

majarea 

maqarea 

majarea 

majarea 

majarea 

minarea 

minarea 

minarea 

minarea 


_Type_ 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

integer 

text 

text 

text 

text 

integer 

text 

integer 

text 

text 

text 

integer 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

real 

text 

real 

real 

real 

real 

text 

real 

real 


Len 

1 

1 
1 
1 

1 

1 

1 

1 

1 

1 

1 

12 

3 

1 


10 
10 
17 
8 


2 
2 
4 

2 
4 

40 

8 

4 

20 

8 

8 

10 

1 

15 

1 

3 

35 

2 

10 

1 

70 

70 

70 

70 

1 

10 

1 

80 

8 

15 

1 

3 
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Source 

AttName 

RelName 

Type 

Lei 

designer 

minwest 

minarea 

real 

numrule 

rules 

integer 

ostatdes 

status 

text 

30 

ostattyp 

status 

text 

1 

propdesc 

boatprop 

text 

15 

proptype 
rdata 

boatprop 

text 

1 

reports 
nations 

text 

13; 

registry 
relname 

text 

30 

datadict 

text 

8 

rname 

reports 
rules 

text 

8 

rulvalue 

text 

40 

shade 

colors 

text 

3 

source 

datadict 

text 

15 

symbol 

nations 

text 

2 

tablel 

rules 

text 

3 

table2 

rules 

text 

8 

type 

datadict 

text 

7 

vardesc 

vardict 

text 

25 

varname 

vardict 

text 

8 

vartype 

vardict 

text 

8 

varusel 

vardict 

text 

12 

violdesc 

viols 

text 

40 

violno 

viols 

text 

2 

vtype 

boattype 

text 

2 

vtypedes 

boattype 

text 

15 

vuse 

boatuse 

text 

2 

vusedesc 

boatuse 

text 

15 

numerous 

epiccode 

vslintel 

text 

1 

intdate 

vslintel 

date 

intdob 

perintel 

date 

intfname 

perintel 

text 

15 

intlname 

perintel 

text 

20 

intmi 

perintel 

text 

1 

intvname 

vslintel 

text 

17 

pintdate 

perintel 

date 

pintreml 

perintel 

text 

70 

pintrem2 

perintel 

text 

70 

pintrem3 

perintel 

text 

70 

stolen 

vslintel 

text 

1 

vremarkl 

vslintel 

text 

70 

vremark2 

vslintel 

text 

70 

vremark3 

vslintel 

text 

70 

ood 

ssunrise 

sar 

time 

ssunset 

sar 

time 

sar  fold 

alngdate 

sarunits 

date 

alngtime 

sarunits 

time 

cbcolor 

vessel 

text 

3 

ceiling 

sar 

integer 

clouds 

sar 

integer 

dkcolor 

vessel 

text 

3 

dvmdate 

sarunits 

date 

dvmoored 

sarunits 

time 

etadate 

sarunits 

date 

folderno 

sar 

text 

7 

foldno 

sarunits 

text 

7 

hlcolor 

vessel 

text 

3 

homeport 

vessel 

text 

25 

immedsar 

sar 

text 

1 

mucn 

sar 

text 

8 

offshore 

sar 

integer 

osdate 

sarunits 

date 

oseta 

sarunits 

time 

ostime 

sarunits 

time 

sailno 

vessel 

text 

8 

sardate 

sar 

date 
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Source 

AttName 

sarday 
sarlat 

RelName 
sar 

Type 
text 

Len 

sar  fold 

3 

sar 

real 

2.3 

sarlong 

sar 

real 

3.3 

sarnod 

sar 

text 

25 

sarpob 
sartime 

sar 

integer 

sar 

time 

sarvhin 

sar 

text 

12 

seas 

sar 

integer 

slcolor 

vessel 

text 

3 

sutdate 

sarunits 

date 

sutmoor 

sarunits 

time 

swells 

sar 

integer 

towdate 

sarunits 

date 

towtime 

sarunits 

time 

trcolor 

vessel 

text 

3 

ucn 

sar 

text 

8 

unitname 

sarunits 

text 

25 

uwdate 

sarunits 

date 

uwtime 

sarunits 

time 

visdist 

sar 

integer 

vslcall 

vessel 

text 

12 

vslmarks 

vessel 

text 

40 

vslmasts 

vessel 

text 

1 

vsloffno 

vessel 

text 

10 

vslsuper 
vs lvalue 

vessel 

text 

12 

vessel 

dollar 

winddir 

sar 

integer 

windspd 

sar 

integer 

system 

idoper 

opvsl 

integer 

idowner 

owvsl 

integer 

opid 

operator 

integer 

opno 

opown 

integer 

ownid 

owners 

integer 

ownno 

opown 

integer 
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Database  Attributes  Sorted  by  Where  Used 


Used  In 

AttName 
adultpfd 

RelName 
bosum 

Type 
integer 

Len 

boarding 

bodate 

bosum 

date 

boday 

bosum 

text 

3 

bodist 

bosum 

text 

2 

boname 

bosum 

text 

25 

bono 

bosum 

text 

7 

boopfac 

bosum 

text 

5 

borate 

bosum 

text 

5 

boreml 

bosum 

text 

70 

borem2 

bosum 

text 

70 

borem3 

bosum 

text 

70 

botime 

bosum 

text 

bounit 

bosum 

text 

25 

bovhin 

bosum 

text 

12 

bsunrise 

bosum 

time 

bsunset. 

bosum 

time 

childpfd 

bosum 

integer 

obsbody 

bosum 

text 

15 

obscity 

bosum 

text 

13 

obscount 

bosum 

text 

15 

obslat 

bosum 

real 

2.3 

obslong 

bosum 

real 

3.3 

obsstate 

bosum 

text 

2 

owstatus 

bosum 

text 

uns69 

bosum 

text 

uns70 

bosum 

text 

uns72 

bosum 

text 

uns73 

bosum 

text 

uns74 

bosum 

text 

, 

uns75 

bosum 

text 

uns76 

bosum 

text 

uns77 

bosum 

text 

uns78 

bosum 

text 

uns79 

bosum 

text 

viol54 

bosum 

text 

viol55 

bosum 

text 

viol56 

bosum 

text 

viol57 

bosum 

text 

viol58 

bosum 

text 

viol59 

bosum 

text 

viol60 

bosum 

text 

. 

viol61 

bosum 

text 

viol62 

bosum 

text 

viol63 

bosum 

text 

viol64 

bosum 

text 

viol65 

bosum 

text 

viol66 

bosum 

text 

viol67 

bosum 

text 

viol68 

bosum 

text 

vslpob 

bosum 

integer 

weapons 

bosum 

integer 

bomajor 

bono 

bosum 

text 

7 

freqcnt 

positfrq 

integer 

gridpct 

positfrq 

real 

majeast 

positfrq 

real 

3.3 

majgrid 

positfrq 

text 

2 

ma^north 

positfrq 

real 

2.3 

maq south 

positfrq 

real 

2.3 

majwest 

positfrq 
bosum 

real 

3.3 

obslat 

real 

2.3 

obslong 

bosum 

real 

3.3 

bominor 

bono 

bosum 

text 

7 

freqcnt 
gridpct 

positfrq 

integer 

positfrq 

real 

mineast 

positfrq 

real 

3.3 
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Used  In 

AttName 

RelName 

Type 

Len 

bominor 

mingrid 

positfrq 

text 

2 

minnorth 

positfrq 

real 

2.3 

minsouth 

positfrq 

real 

2.3 

minwest 

positfrq 
Dosum 

real 

3.3 

obslat 

real 

2.3 

obslong 

bosum 

real 

3.3 

cmerpt 

bono 

bosum 

text 

bono 

bovslsum 

text 

bovhin 

bosum 

text 

12 

bovhin 

bovslsum 

text 

12 

cmedecal 

bovslsum 

text 

cmedecal 

vslsum 

text 

cmeyear 

bovslsum 

text 

4 

-  cmevear 

vslsum 

text 

4 

tmp" 
vslhin 

temp 

text 

2 

bovslsum 

text 

12 

vslhin 

vslsum 

text 

12 

daynight 

bodate 

bosum 

date 

botime 

bosum 

time 

bsunrise 

bosum 

time 

bsunset 

bosum 

time 

sardate 

sarsum 

date 

sartime 

sarsum 

time 

ssunrise 

sarsum 

time 

ssunset 

sarsum 

time 

tmp 

temp 

text 

2 

epicdump 

ecnumber 

epic tmp 

integer 

ecpct 

epic tmp 

real 

epiccode 

epicsum 

text 

1 

epiccode 

epictmpl 

text 

1 

epicdscl 

epic tmp 

text 

70 

epicdscl 

epictmp2 

text 

•70 

epicdsc2 

epic tmp 

text 

70 

epicdsc2 

epictmp2 

text 

70 

epicdsc3 

epic tmp 

text 

70 

epicdsc3 

epictmp2 

text 

70 

epicdsc4 

epictmp 

text 

70 

epicdsc4 

epictmp2 

text 

70 

epicno 

epictmp 

text 

1 

epicno 

epictmp2 

text 

1. 

intdate 

epicsum 

date 

intdate 

epictmpl 
stolesum 

date 

intdate 

date 

intvdate 

intelsum 

date 

intvname 

epicsum 

text 

17 

intvname 

intelsum 

text 

17 

intvname 

stolesum 

text 

17 

stolen 

epicsum 

text 

1 

stolen 

stolesum 

text 

1 

vremarkl 

intelsum 

text 

70 

vremark2 

intelsum 

text 

70 

vremark3 

intelsum 

text. 

70 

immedsar 

folderno 

sarsum 

text 

7 

immedsar 

sarsum 

real 

1 

sardate 

sarsum 

date  • 

tmp 

temp 

text 

2 

intelrpt 

bodate 

bosum 

date 

bodate 

violsum 

date 

bono 

bosum 

text 

7 

bono 

violsum 

text 

7 

bono 

vslmo 

text 

7 

bovhin 

bosum 

text 

12 

bovhin 

violsum 

text 

12 

constdes 

summary3 

text 

10 

counter 

summaryl 

integer 
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Used  In 
intelrpt 


AttName 

descprop 

engdesc 

fueldesc 

hulldesc 

numconst 

numeng 

numfuel 

numhull 

numprop 

numuse 

tmp 

typedesc 

uns69 

uns69 

uns70 

uns70 

uns71 

uns72 

uns72 

uns73 

uns73 

uns74 

uns74 

uns75 

uns75 

uns76 

uns76 

uns77 

uns77 

uns78 

uns78 

uns79 

uns79 

Usedesc 

viol54 

viol54 

viol55 

viol55 

viol56 

viol56 

viol57 

viol57 

viol58 

viol58 

viol59 

viol59 

viol60 

viol60 

viol61 

viol61 

viol62 

viol62 

viol63 

viol63 

viol64 

viol64 

viol65 

viol65 

viol66 

viol66 

viol67 

viol67 

viol68 

viol68 

vslconst 


RelName 

summary6 

summary4 

summary5 

summary6 

summary3 

summary4 

summary5 

sununary6 

summary7 

summary2 

temp 

summaryl 

bosum 

violsum 

bosum 

violsum 

bosum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

summary2 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

bosum 

violsum 

summary3 


_Type_ 

text 

text 

text 

text 

integer 

integer 

integer 

integer 

integer 

integer 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 


Len 

15 
10 
10 
15 
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Used  In 
intelrpt 


operator 


AttName 

vslconst 

vslconst 

vslconst 

vsleng 

vsleng 

vsleng 

vsleng 

vslfuel 

vslfuel 

vslfuel 

vslfuel 

vslhin 

vslhin 

vslhull 

vslhull 

vslhull 

vslhull 

vsllenft 

vsllenft 

vsllenft 

vslprop 

vslprop 

vslprop 

vslprop 

vsltons 

vsltons 

vsltype 

vsltype 

vsltype 

vsltype 

vsluse 

vsluse 

vsluse 

vsluse 

vslyear 

vslyear 

vslyear 

weapons 

weapons 

opaddr 

opaddr 

opcity 

opcity 

opcourse 

opcourse 

opdob 

opdob 

op f name 

op f name 

opid 

opid 

oplname 

oplname 

opmi 

opmi 

opstate 

opstate 

optelno 

optelno 

op  zip 

op  zip 


RelName 

violsum 

vslmo 

vslsum 

summary4 

violsum 

vslmo 

vslsum 

summary5 

violsum 

vslmo 

vslsum 

violsum 

vslsum 

summary 6 

violsum 

vslmo 

vslsum 

violsum 

vslmo 

vslsum 

summary6 

violsum 

vslmo 

vslsum 

violsum 

vslsum 

summaryl 

violsum 

vslmo 

vslsum 

summary2 

violsum 

vslmo 

vslsum 

violsum 

vslmo 

vslsum 

bosum 

violsum 

opsuml 

opsum2 

opsuml 

opsum2 

opsuml 

opsum2 

opsuml 

opsum2 

opsuml 

opsum2 

opsuml 

opsum2 

opsuml 

opsum2 

opsuml 

opsum2 

opsuml 

opsum2 

opsuml 

opsum2 

opsuml 

opsum2 


_Type_ 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

integer 

integer 

text 

text 

text 

text 

integer 

integer 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

integer 

text 

text 

text 

text 

text 

text 

date 

date 

text 

text 

integer 

integer 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 


Len 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

12 

12 

1 

1 

1 

1 


1 

1 
1 
1 


2 
2 
2 
2 
2 
2 
2 
2 
4 
4 
4 


25 
25 

18 
18 
1 
1 


15 
15 


20 

20 

1 

1 

2 

2 

12 

12 

9 

9 
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Used  In 
opervsls 


AttName 

RelName 

Type 

Le: 

cbcolor 

opvsls2 

text 

3 

cmedecal 

opysls2 

text 

1 

cmeyear 

opvsls2 

text 

4 

dkcolor 

opvsls2 

text 

3 

hlcolor 

opvsls2 

text 

3 

homeport 

opvsls2 

text 

25 

idoper 

opvslsl 

integer 

idoper 

opvsls2 

integer 

opaddr 

opervsls 

text 

25 

opaddr 

opvslsl 

text 

25 

opaddr 

opvsls2 

text 

25 

opcity 

opervsls 

text 

18 

opcity 

opvslsl 

text 

18 

opcity 

opvsls2 

text 

13 

opcourse 

opvslsl 

text 

1 

opcourse 

opvsls2 

text 

1 

opdob 

opervsls 

date 

opdob 

opvslsl 

date 

opdob 

opvsls2 

date 

op f name 

opervsls 

•text 

15 

op f name 

opvslsl 

text 

15 

opfname 

opvsls2 

text 

15 

opid 

opvslsl 

integer 

op  id 

opvsls2 

integer 

oplname 

opervsls 

text 

20 

oplname 

opvslsl 

text 

20 

oplname 

opvsls2 

text 

20 

opmi 

opervsls 

text 

1 

opmi 

opvslsl 

text 

1 

opmi 

opvsls2 

text 

1 

opstate 

opervsls 

text 

2 

opstate 

opvslsl 

text 

2 

opstate 

opvsls2 

text 

2 

optelno 

opervsls 

text 

12 

optelno 

opvslsl 

text 

12 

optelno 

opvsls2 

text 

12 

op  zip 

opervsls 

text 

9 

op  zip 

opvslsl 

text 

9 

opzip 

opvsls2 

text 

9 

sailno 

opvsls2 

text 

8 

slcolor 

oovsls2 

text 

3 

trcolor 

opvsls2 

text 

3 

vhinoper 

opvslsl 

text 

12 

vhinoper 
vslcall 

opvsls2 
opvsls2 

text 
text 

12 
12 

vslconst 

opvsls2 

text 

1 

vsleng 

opvsls2 

text 

1 

vslfuel 

opvsls2 

text 

1 

vslhin 

opervsls 

text 

12 

vslhin 

opvsls2 

text 

12 

vslhp 

opvsls2 

text 

3 

vslhull 

opvsls2 

text 

1 

vsllenft 

opvsls2 

integer 

vsllenin 

opvsls2 

integer 

vslmake 

opvsls2 

text 

10 

vslmarks 

opvsls2 

text 

40 

vslmasts 

opvsls2  • 

text 

1 

vslmodel 

opvsls2 

text 

10 

vslname 

opervsls 

text 

17 

vslname 

opvsls2 

text 

17 

vslno 

opvsls2 

text 

8 

vsloffno 

opvsls2 

text 

10 

vslprop 

opvsls2 

text 

1 

vslsuper 

opvsls2 

text 

12 

vsltons 

opvsls2 

integer 
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Used  In 
opervsls 

owners 


ownervsl 


AttName 

vsltype 

vsluse 

vslvalue 

vslyear 

ownaddr 

ownaddr 

owncity 

owncity 

owndob 

owndob 

ownfname 

ownfname 

own  id 

own  id 

ownlname 

ownlname- 

ownmi 

ownmi 

ownstate 

ownstate 

owntelno 

owntelno 

ownzip 

ownzip 

cbcolor 

cmedecal 

cmeyear 

dkcolor 

hlcolor 

homeport 

idowner 

idowner 

ownaddr 

ownaddr 

ownaddr 

owncity 

owncity 

owncity 

owndob 

owndob 

owndob 

ownfname 

ownfname 

ownfname 

ownid 

own  id 

ownlname 

ownlname 

ownlname 

ownmi 

ownmi 

ownmi 

ownstate 

ownstate 

ownstate 

owntelno 

owntelno 

owntelno 

ownzip 

ownzip 

ownz  ip 

sailno 

slcolor 

trcolor 

vhinown 


RelName 

opvsls2 

opvsls2 

opvsls2 

opvsls2 

ownsuml 

ownsum2 

ownsuml 

ownsum2 

ownsuml 

ownsum2 

ownsuml 

ownsum2 

ownsuml 

ownsum2 

ownsuml 

ownsum2 

ownsuml 

ownsum2 

ownsuml 

ownsum2 

ownsuml 

ownsum2 

ownsuml 

ownsum2 

ownvsls2 

ownvsls2 

ownvsls2 

ownvsls2 

ownvsls2 

ownvsls2 

ownvslsl 

ownvsls2 

ownvsls 

ownvslsl 

ownvsls2 

ownvsls 

ownvslsl 

ownvsls 2 

ownvsls 

ownvslsl 

ownvsls 2 

ownvsls 

ownvslsl 

ownvsls 2 

ownvslsl 

ownvsls2 

ownvsls 

ownvslsl 

ownvsls 2 

ownvsls 

ownvslsl 

ownvsls 2 

ownvsls 

ownvslsl 

ownvsls2 

ownvsls 

ownvslsl 

ownvsls2 

ownvsls 

ownvslsl 

ownvsls2 

ownvsls2 

ownvsls 2 

ownvsls 2 

ownvslsl 


_Type_ 

text 

text 

dollar 

text 

text 

text 

text 

text 

date 

date 

text 

text 

integer 

integer 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

integer 

text 

text 

text 

text 

text 

text 

date 

date 

date 

text 

text 

text 

integer 

integer 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 


Len 

2 
2 

4 

25 

25 

18 
18 


15 
15 


20 

20 

1 

1 

2 

2 

12 

12 

9 

9 

3 

1 

4 

3 

3 

25 


25 
25 
25 

18 
18 
18 


15 

15 
15 


20 

20 

20 

1 

1 

1 

2 

2 

2 

12 

12 

12 

9 

9 

9 

8 

3 

3 

12 


156 


Used  In 


perintel 


querjper 


AttName 

vhinown 

vslcall 

vslconst 

vsleng 

vslfuel 

vslhin 

vslhin 

vslhp 

vslhull 

vsllenft 

vsllenin 

vslmake 

vslmarks 

vslmasts 

vslmodel 

vslname 

vslname 

vslno 

vsloffno 

vslprop 

vslsuper 

vsltons 

vsltype 

vsluse 

vslvalue 

vslyear 

intdob 

intfname 

intlname 

intmi 

pintdate 

pintreml 

pintrem2 

Eintrem3 
odate 
boname 
bono 
borate 
boreml 
borem2 
borem3 
botime 
bovhin 
cbcolor 
cbcolor 
cmedecal 
cmedecal 
cmeyear 
cmeyear 
dkcolor 
dkcolor 
epiccode 
folderno 
hlcolor 
hlcolor 
homeport 
homeport 
idoper 
idoper 
idowner 
idowner 
immedsar 
intdate 
intdob 
intfname 


Re  IN  ante 

ownvsls2 

ownvsls2 

ownvsls2 

ownvsls2 

ownvsls2 

ownvsls 

ownvsls2 

ownvsls2 

ownvsls 2 

ownvsls2 

ownvsls2 

ownvsls 2 

ownvsls 2 

ownvsls2 

ownvsls 2 

ownvsls 

ownvsls 2 

ownvsls2 

ownvsls 2 

ownvsls2 

ownvsls2 

ownvsls2 

ownvsls2 

ownvsls2 

ownvsls 2 

ownvsls2 

persum 

persum 

persum 

persum 

persum 

persum 

persum 

Eersum 
ohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
pvsljoin 
wvsljoin 
pvsljoin 
wvsljoin 
pvslqoin 
wvsl^oin 
pvsljoin 
wvsljoin 
vslint 
sarhis 
pvsljoin 
wvsl;join 
pvsljoin 
wvslijoin 
pvsljoin 
vslsopr 
vslsown 
wvsljoin 
sarhis 
vslint 
perint 
perint 


_Type_ 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

integer 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

text 

text 

dollar 

text 

date 

text 

text 

text 

date 

text 

text 

text 

date 

text 

text 

text 

text 

text 

text 

time 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

integer 

integer 

integer 

text 

date 

date 

text 


Len 

12 
12 
1 

1 
1 
12 

12 
3 

1 


10 

40 

1 

10 

17 

17 

8 

10 

1 

12 

2 
2 


15 
20 

1 

70 
70 
70 

25 

7 

5 

70 

70 

70 

12 
3 

3 

1 

1 

4 

4 

3 

3 

1 

7 

3 

3 

25 

25 


1 
15 


157 


Used  In 

AttName 
intlname 

RelName 
perint 

Type 
text 

Len 

querjper 

20 

intmi 

perint 

text 

1 

intvname 

vslint 

text 

17 

mucn 

sarhis 

text 

8 

obslat 

bohis 

real 

2.3 

obslong 

bohis 

real 

3.3 

offshore 

sarhis 

integer 

pintdate 

perint 

date 

pintreml 

perint 

text 

70 

pintrem2 

perint 

text 

70 

pintrem3 

perint 

text 

70 

sailno 

pvsljoin 

text 

8 

sailno 

wvsljoin 

text 

8 

sardate 

sarhis 

date 

sarlat 

sarhis 

real 

2.3 

sarlong 

sarhis 

real 

3.3 

sarnod 

sarhis 

text 

25 

sarpob 
sartime 

sarhis 

integer 

sarhis 

time 

sarvhin 

sarhis 

text 

12 

slcolor 

pvsljoin 

text 

3 

slcolor 

wvsljoin 

text 

3 

stolen 

vslint 

text 

1 

tmp 

temp 
pvsljoin 

text 

2 

trcolor 

text 

3 

trcolor 

wvsljoin 

text 

3 

ucn 

sarhis 

text 

3 

uns69 

bohis 

text 

uns70 

bohis 

text 

uns71 

bohis 

text 

uns72 

bohis 

text 

uns73 

bohis 

text 

uns74 

bohis 

text 

uns75 

bohis 

text 

uns76 

bohis 

text 

uns77 

bohis 

text 

uns78 

bohis 

text 

uns79 

bohis 

text 

vhinoper 

pvsljoin 

text 

12 

vhinoper 

vslsopr 

text 

12 

vhinown 

vslsown 

text 

12 

vhinown 

wvsljoin 

text 

12 

viol54 

bohis 

text 

viol55 

bohis 

text 

viol56 

bohis 

text 

viol57 

bohis 

text 

.  viol53 

bohis 

text 

- 

viol59 

bohis 

text 

viol60 

bohis 

text 

viol61 

bohis 

text 

viol62 

bohis 

text 

viol63 

bohis 

text 

viol64 

bohis 

text 

viol65 

bohis 

text 

vio!66 

bohis 

text 

viol67 

bohis 

text 

vioI63 

bohis 

text 

vremarkl 

vslint 

text 

70 

vremark2 

vslint 

text 

70 

vremark3 

vslint 

text 

70 

vslcall 

pvsljoin 

text 

12 

vslcall 

wvsljoin 

text 

12 

vslconst 

pvslqoin 

text 

1 

vslconst 

wvslqoin 

text 

vsleng 

pvsljoin 

text 
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Used  In 

AttName 

RelName 

Type 

Len 

quer_per 

vsleng 

wvsljoin 

text 

1 

vslfuel 

pvsljoin 

text 

1 

vslfuel 

wvsljoin 

text 

1 

vslhin 

pvsljoin 

text 

12 

vslhin 

wvsljoin 

text 

12 

vslhp 

pvsljoin 

text 

3 

vslhp 

wvsljoin 

text 

3 

vslhull 

pvsljoin 

text 

1 

vslhull 

wvsljoin 

text 

1 

vsllenft 

pvsljoin 

integer 

vsllenft 

wvsljoin 

integer 

vsllenin 

pvsljoin 

integer 

vsllenin 

wvsljoin 

integer 

vslmake 

pvsljoin 

text 

10 

vslmake 

wvsljoin 

text 

10 

vslmarks 

pvsljoin 

text 

40 

vslmarks 

wvsljoin 

text 

40 

vslmasts 

pvsljoin 

text 

1 

vslmasts 

wvsljoin 

text 

1 

vslmodel 

pvsljoin 

text 

10 

vslmodel 

wvsljoin 

text 

10 

vslname 

pvsljoin 

text 

17 

vslname 

wvsljoin 

text 

17 

vslno 

pvsljoin 

text 

8 

vslno 

wvsljoin 

text 

8 

vsloffno 

pvsljoin 

text 

10 

vsloffno 

wvsljoin 

text 

10 

vslpob 

bohis 

integer 

vslprop 

pvsljoin 

text 

1 

vslprop 

wvsljoin 

text 

1 

vslsuper 

pvsljoin 

text 

12 

vslsuper 

wvsljoin 

text 

12 

vsltons 

pvsljoin 

integer 

• 

vsltons 

wvsljoin 

integer 

vsltype 

pvsljoin 

text 

2 

vsltype 

wvsljoin 

text 

2 

vsluse 

pvsljoin 

text 

2 

vsluse 

wvsljoin 

text 

2 

vs lvalue 

pvsljoin 

dollar 

vslvalue 

wvsljoin 

dollar 

vslyear 

pvsljoin 

text 

4 

vslyear 

wvsljoin 

text 

4 

weapons 

bohis 

integer 

quer_vsl 

bodate 

bohis 

date 

boname 

bohis 

text 

25 

bono 

bohis . 

text 

7 

borate 

bohis 

text 

5 

boreml 

bohis 

text 

70 

borem2 

bohis 

text 

70 

borem3 

bohis 

text 

70 

botime 

bohis 

time 

bovhin 

bohis 

text 

12 

epiccode 

vslint 

text 

1 

folderno 

sarhis 

text 

.  7 

immedsar 

sarhis 

text 

1 

intdate 

vslint 

date 

intdob 

perint 

date 

intfname 

perint 

text 

15 

intlname 

perint 

text 

20 

intmi 

perint 

text 

1 

intvname 

vslint 

text 

17 

mucn 

sarhis 

text 

8 

obslat 

bohis 

real 

2.3 

obslong 

bohis 

real 

3.3 

offshore 

sarhis 

integer 
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Used  In 

AttName 

RelName 

quer_vsl 

pintdate 

perint 

pintreml 

perint 

pintrem2 

perint 

pintrem3 

perint 

sardate 

sarhis 

sarlat 

sarhis 

sarlong 

sarhis 

sarnod 

sarhis 

sarpob 
sartime 

sarhis 

sarhis 

sarvhin 

sarhis 

stolen 

vslint 

tmp 

temp 
sarhis 

ucn 

uns69 

bohis 

uns70 

bohis 

uns71 

bohis 

uns72 

bohis 

uns73 

bohis 

uns74 

bohis 

uns75 

bohis 

uns76 

bohis 

uns77 

bohis 

uns78 

bohis 

uns79 

bohis 

viol54 

bohis 

viol55 

bohis 

viol56 

bohis 

viol57 

bohis 

viol58 

bohis 

viol59 

bohis 

viol60 

bohis 

viol61 

bohis 

viol62 

bohis 

viol63 

bohis  . 

viol64 

bohis 

viol65 

bohis 

viol66 

bohis 

viol67 

bohis 

viol68 

bohis 

vremarkl 

vslint 

vremark2 

vslint 

vremark3 

vslint 

vslpob 

bohis 

weapons 

bohis 

sardump 

ceiling 

sarsum 

clouds 

sarsum 

folderno 

sarsum 

immedsar 

sarsum 

mucn 

sarsum 

offshore 

sarsum 

sardate 

sarsum 

sarday 
sarlat 

sarsum 

sarsum 

sarlong 

sarsum 

sarnod 

sarsum 

sarpob 
sartime 

sarsum 

sarsum 

sarvhin 

sarsum 

seas 

sarsum 

ssunrise 

sarsum 

ssunset 

sarsum 

swells 

sarsum 

ucn 

sarsum 

visdist 

sarsum 

_Type_ 

date 

text 

text 

text 

date 

real 

real 

text 

integer 

time 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

integer 

integer 

integer 

text 

text 

text 

integer 

date 

text 

real 

real 

text 

integer 

time 

text 

integer 

time 

time 

integer 

text 

integer 


Len 


70 
70 
70 

2.3 

3.3 
25 


'0 
'0 


7 
1 
8 


3 
2.3 

3.3 
25 


12 


8 
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Used  In 
sardump 
sarday 


sarmajor 


sarmmor 


sarsmbt 


sartimes 


smboatrp 


AttName 

winddir 

windspd 

folderno 

folderno 

pctincr 

sardate 

sardate 

sarday 

sarday 

sarnum 

saryear 

tmp 

folderno 

freqcnt 

gridpct 

majeast 

ma^grid 

ma^north 

ma} south 

majwest 

sarlat 

sarlong 

folderno 

freqcnt 

gridpct 

mineast 

mingrid 

minnorth 

minwest 

sarlat 

sarlong 

folderno 

sarlat 

sarlong 

tmp 

alngdate 

alngdate 

alngtime 

alngtime 

dvmdate 

dvmoored 

foldno 

foldno 

foldno 

foldno 

foldno 

osdate 

osdate 

ostime 

ostime 

sutdate 

sutmoor 

tmp 

towdate 

towtime 

uwdate 

uwdate 

uwdate 

uwtime 

uwtime 

uwtime 

bono 

obslat 

obslong 

tmp 


RelName 

sarsum 

sarsum 

sarsum 

sarsuml 

sarstat 

sarsum 

sarsuml 

sarsum 

sarsuml 

sarstat 

sarstat 

temp 

sarsum 

positfrq 

positfrq 

positfrq 

positfrq 

positfrq 

positfrq 

positfrq 

sarsum 

sarsum 

sarsum 

positfrq 

positfrq 

positfrq 

positfrq 

positfrq 

positfrq 

sarsum 

sarsum 

sarsum 

sarsum 

sarsum 

temp 

sartime3 

sartime4 

sartime3 

sartime4 

sartime5 

sartime5 

sartimel 

sartime2 

sartime3 

sartime4 

sartime5 

sartimel 

sartime4 

sartimel 

sartime4 

sartime2 

sartime2 

temp 

sartime5 

sartime5 

sartimel 

sartime2 

sartime3 

sartimel 

sartime2 

sartime3 

bosum 

bosum 

bosum 

temp 


_Type_ 

integer 

integer 

text 

text 

real 

date 

date 

text 

text 

integer 

text 

text 

text 

integer 

real 

real 

text 

real 

real 

real 

real 

real 

text 

integer 

real 

real 

text 

real 

real 

real 

real 

text 

real 

real 

text 

date 

date 

time 

time 

date 

time 

text 

text 

text 

text 

text 

date 

date 

time 

time 

date 

time 

text 

date 

time 

date 

date 

date 

time 

time 

time 

text 

real 

real 

text 


Len 


7 
7 


3 
3 

4 
2 

7 


3.3 

2 

2.3 

2.3 

3.3 

2.3 

3.3 

7 


3.3 

2 

2.3 

3.3 

2.3 

3.3 

7 

2.3 

3.3 

2 


7 
7 
7 
7 
7 


7 

2.3 
3.3 
2 
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Used  In 

AttName 

RelName 

Type 

Lei 

vessel 

cbcolor 

vslsum 

text 

3 

cbcolor 

vslsuml 

text 

3 

cbcolor 

vslsum2 

text 

3 

cmedecal 

vslsum 

text 

1 

cmedecal 

vslsuml 

text 

1 

cmedecal 

vslsum2 

text 

1 

cmeyear 

vslsum 

text 

4 

cmeyear 

vslsuml 

text 

4 

cmeyear 

vslsum2 

text 

4 

dkcolor 

vslsum 

text 

3 

dkcolor 

vslsuml 

text 

3 

dkcolor 

vslsum2 

text 

3 

hlcolor 

vslsum 

text 

3 

hlcolor 

vslsuml 

text 

3 

hlcolor 

vslsum2 

text 

3 

homeport 

vslsum 

text 

25 

homeport 

vslsuml 

text 

25 

homeport 

vslsum2 

text 

25 

sailno 

vslsum 

text 

8 

sailno 

vslsuml 

text 

8 

sailno 

vslsum2 

text 

8 

slcolor 

vslsum 

text 

3 

slcolor 

vslsuml 

text 

3 

slcolor 

vslsum2 

text 

3 

trcolor 

vslsum 

text 

3 

trcolor 

vslsuml 

text 

3 

- 

trcolor 

vslsum2 

text 

3 

vslcall 

vslsum 

text 

12 

vslcall 

vslsuml 

text 

12 

vslcall 

vslsum2 

text 

12 

vslconst 

vslsum 

text 

1 

vslconst 

vslsuml 

text 

1 

vslconst 

vslsum2 

text 

1 

vsleng 

vslsum 

text 

1 

vsleng 

vslsuml 

text 

.  1 

vsleng 

vslsum2 

text 

1 

vslfuel 

vslsum 

text 

1 

vslfuel 

vslsuml 

text 

1 

vslfuel 

vslsum2 

text 

1 

vslhin 

vslsum 

text 

12 

vslhin 

vslsuml 

text 

12 

vslhin  . 

vslsum2 

text 

12 

vslhp 

vslsum 

text 

3 

vslhp 

vslsuml 

text 

3 

vslhp 

vslsum2 

text 

3 

vslhull 

vslsum 

text 

1 

vslhull 

vslsuml 

text 

1 

vslhull 

vslsum2 

text 

1 

vsllenft 

vslsum 

integer 

vsllenft 

vslsuml 

integer 

vsllenft 

vslsum2 

integer 

vsllenin 

vslsum 

integer 

vsllenin 

vslsuml 

integer 

vsllenin 

vslsum2 

integer 

vslmake 

vslsum 

text 

10 

vslmake 

vslsuml 

text 

10 

vslmake 

vslsum2 

text 

10 

vslmarks 

vslsum 

text 

40 

vslmarks 

vslsuml 

text 

40 

vslmarks 

vslsum2 

text 

40 

vslmasts 

vslsum 

text 

1 

vslmasts 

vslsuml 

text 

1 

vslmasts 

vslsum2 

text 

1 

vslmodel 

vslsum 

text 

10 

vslmodel 

vslsuml 

text 

10 
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Used  In 

AttName 

RelName 

Type 

Le 

vessel 

vslmodel 

vslsum2 

text 

10 

vslname 

vslsum 

text 

17 

vslname 

vslsuml 

text 

17 

vslname 

vslsum2 

text 

17 

vslno 

vslsum 

text 

8 

vslno 

vslsuml 

text 

8 

vslno 

vslsum2 

text 

8 

vsloffno 

vslsum 

text 

10 

vsloffno 

vslsuml 

text 

10 

vsloffno 

vslsum2 

text 

10 

vslprop 

vslsum 

text 

1 

vslprop 

vslsuml 

text 

1 

vslprop 

vslsum2 

text 

1 

vslsuper 

vslsum 

text 

12 

vslsuper 

vslsuml 

text 

12 

vslsuper 

vslsum2 

text 

12 

vsltons 

vslsum 

integer 

vsltons 

vslsuml 

integer 

vsltons 

vslsum2 

integer 

vsltype 

vslsum 

text 

2 

vsltype 

vslsuml 

text 

2 

vsltype 

vslsum2 

text 

2 

vsluse 

vslsum 

text 

2 

vsluse 

vslsuml 

text 

2 

vsluse 

vslsum2 

text 

2 

vslvalue 

vslsum 

dollar 

vslvalue 

vslsuml 

dollar 

vslvalue 

vslsum2 

dollar 

vslyear 

vslsum 

text 

4 

vslyear 

vslsuml 

text 

4 

vslyear 

vslsum2 

text 

4 

violfreq 

bono 

frqchart 

text 

7 

tmp 

temp 

text 

2 

uns69 

frqchart 

text 

uns70 

frqchart 

text 

uns71 

frqchart 

text 

uns72 

frqchart 

text 

uns73 

frqchart 

text 

uns74 

frqchart 

text 

uns75 

frqchart 

text 

uns76 

frqchart 

text 

uns77 

frqchart 

text 

uns78 

frqchart 

text 

uns79 

frqchart 

text 

viol54 

frqchart 

text 

viol55 

frqchart 

text 

viol56 

frqchart  ■ 

text 

viol57 

frqchart 

text 

viol58 

frqchart 

-  text 

viol59 

frqchart 

text 

viol60 

frqchart 

text 

viol61 

frqchart 

text 

viol62 

frqchart 

text 

viol63 

frqchart 

text 

viol64 

frqchart 

text 

viol65 

frqchart 

text 

viol66 

frqchart 

text 

viol67 

frqchart 

text 

viol68 

frqchart 

text 

vsloper 

cbcolor 

opvsls2 

text 

cmedecal 

opvsls2 

text 

cmeyear 

opvsls2 

text 

dkcolor 

opvsls2 

text 

3 

hlcolor 

opvsls2 

text 

3 

homeport 

opvsls2 

text 

25 
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Used  In 

AttName 
idoper 

RelName 
opvslsl 

Type 
integer 

Lei 

vsloper 

idoper 

opvsls2 

integer 

opaddr 

opervsls 

text 

25 

opaddr 

opvslsl 

text 

25 

opaddr 

opvsls2 

text 

25 

opcity 

opervsls 

text 

18 

. 

opcity 

opvslsl 

text 

18 

opcity 

opvsls2 

text 

18 

opcourse 

opvslsl 

text 

1 

opcourse 

opvsls2 

text 

1 

opdob 

opervsls 

date 

opdob 

opvslsl 

date 

opdob 

opvsls2 

date 

op f name 

opervsls 

text 

15 

op f name 

opvslsl 

text 

15 

opfname 

opvsls2 

text 

15 

opid 

opvslsl 

integer 

opid 

opvsls2 

integer 

oplname 

opervsls 

text 

20 

oplname 

opvslsl 

text 

20 

oplname 

opvsls2 

text 

20 

opmi 

opervsls 

text 

1 

opmi 

opvslsl 

text 

1 

opmi 

opvsls2 

text 

1 

opstate 

opervsls 

text 

2 

opstate 

opvslsl 

text 

2 

opstate 

opvsls2 

text 

2 

optelno 

opervsls 

text 

12 

optelno 

opvslsl 

text 

12 

optelno 

opvsls2 

text 

12 

opzip 

opervsls 

text 

9 

op  zip 

opvslsl 

text 

9 

opzip 

oovsls2 

text 

9 

sailno 

opvsls2 

text 

8 

slcolor 

opvsls2 

text 

3 

trcolor 

opvsls2 

text 

3 

vhinoper 

opvslsl 

text 

12 

vhinoper 
vslcall 

opvsls2 

text 

12 

opvsls2 

text 

12 

vslconst 

opvsls2 

text 

1 

vsleng 

opvsls2 

text 

1 

vslfuel 

opvsls2 

text 

1 

vslhin 

opervsls 

text 

12 

vslhin 

opvsls2 

text 

12 

vslhp 

opvsls2 

text 

3 

vslhull 

opvsls2 

text 

1 

vsllenft 

•  opvsls2 

integer 

vsllenin 

opvsls2 

integer 

vslmake 

opvsls2 

text 

10 

vslmarks 

opvsls2 

text 

40 

vslmasts 

opvsls2 

text 

1 

vslmodel 

opvsls2 

text 

10 

vslname 

opervsls 

text 

17 

. 

vslname 

opvsls2 

text 

17 

vslno 

opvsls2 

text 

8 

vsloffno 

opvsls2 

text 

10 

vslprop 

opvsls2 

text 

1 

vslsuper 

opvsls2 

text 

12 

vsltons 

opvsls2 

integer 

vsltype 

opvsls2 

text 

2 

vsluse 

opvsls2 

text 

2 

vs lvalue 

opvsls2 

dollar 

vslyear 

opvsls2 

text 

4 
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Used  In 

AttName 

RelName 

Type 

Le: 

vslowner 

cbcolor 

ownvsls2 

text 

3 

cmedecal 

ownvsls2 

text 

1 

cmeyear 

ownvsls2 

text 

4 

dkcolor 

ownvsls2 

text 

3 

hlcolor 

ownvsls2 

text 

3 

homeport 

ownvsls2 

text 

25 

idowner 

ownvslsl 

integer 

idowner 

ownvsls2 

integer 

ownaddr 

ownvsls 

text 

25 

ownaddr 

ownvslsl 

text 

25 

ownaddr 

ownvsls2 

text 

25 

owncity 

ownvsls 

text 

18 

owncity 

ownvslsl 

text 

18 

owncity 

ownvsls2 

text 

13 

owndob 

ownvsls 

date 

owndob 

ownvslsl 

date 

owndob 

ownvsls2 

date 

ownfname 

ownvsls 

text 

15 

ownfname 

ownvslsl 

text 

15 

ownfname 

ownvsls 2 

text 

15 

ownid 

ownvslsl 

integer 

ownid 

ownvsls2 

integer 

ownlname 

ownvsls 

text 

20 

ownlname 

ownvslsl 

text 

20 

ownlname 

ownvsls2 

text 

20 

ownmi 

ownvsls 

text 

1 

ownmi 

ownvslsl 

text 

1 

ownmi 

ownvsls2 

text 

1 

ownstate 

ownvsls 

text 

2 

ownstate 

ownvslsl 

text 

2 

ownstate 

ownvsls2 

text 

2 

owntelno 

ownvsls 

text 

12 

owntelno 

ownvslsl 

text 

12 

owntelno 

ownvsls2 

text 

12 

ownzip 

ownvsls 

text 

9 

ownzip 

ownvslsl 

text 

9 

ownzip 

ownvsls 2 

text 

9 

sailno 

ownvsls2 

text 

8 

slcolor 

ownvsls2 

text 

3 

trcolor 

ownvsls 2 

text 

3 

vhinown 

ownvslsl 

text 

12 

vhinown 

ownvsls2 

text 

12 

vslcall 

ownvsls2 

text 

12 

vslconst 

ownvsls2 

text 

1 

vsleng 

ownvsls2 

text 

1 

vslfuel 

ownvsls2 

text 

1 

vslhin 

ownvsls 

text 

12 

vslhin 

ownvsls2 

text 

12 

vslhp 

ownvsls2 

text 

3 

vslhull 

ownvsls2 

text 

1 

vsllenft 

ownvsls 2 

integer 

vsllenin 

ownvsls 2 

integer 

vslmake 

ownvsls 2 

text 

10 

vslmarks 

ownvsls2 

text 

40 

vslmasts 

ownvsls2 

text 

1 

vslmodel 

ownvsls2 

text 

10 

vslname 

ownvsls 

text 

17 

vslname 

ownvsls2 

text 

17 

vslno 

ownvsls2 

text 

8 

vsloffno 

ownvsls2 

text 

10 

vslprop 

ownvsls2 

text 

1 

vslsuper 

ownvsls 2 

text 

12 

vsltons 

ownvsls2 

integer 

vsltype 

ownvsls2 

text 

2 

vsluse 

ownvsls 2 

text 

2 

vslvalue 

ownvsls2 

dollar 

vslyear 

ownvsls2 

text 

4 
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Program  Variables  Sorted  by  Variable  Name 


Name 

addl_opr 
addl_own 
addlownr 

after90 
algavg 
algtimes 
allrecs 


Type 


anytype 

aprdatel 

aprdate2 

aprsar 

augdatel 

augdate2 

augsar 

bl 


blO 
bll 
bl2 
bl3 
bl4 
bl5 
bl6 
bl7 
bl8 
bl9 
b2 


b20 
b21 
b22 
b23 
b.24 
b25 
b26 
b27 
b28 
b29 
b3 


b30 
b31 
b32 
b33 
b34 
b35 
b36 
b37 
b38 
b39 


text 
text 
text 

integer 
real 
integer 
text 


text 

date 

date 

integer 

date 

date 

integer 

date 


text 
text 
real 
real 
text 
text 
text 
text 
text 
text 
time 


text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
real 

text 
text 
text 
text 
text 
text 
text 
text 
text 
text 


Used  In 

add_sbd.prg 

add_sbd.prg 

add_sar.prg 

add_sbd.prg 

cmerpt.prg 

sartimes.prg 

sartimes.prg 

opervsl.prg 

opervsls.prg 

ownvsl.prg 

ownvsl.prg 

vsloper.prg 

vsloper.prg 

vslowner\prg 

vslowner .prg 

vessel. prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.org 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 


Description 


user  input 
user  input 
user  input 

counting  variable 
average  alongside  time 
counting  variable 
flag  -  all  records? 


flag  variable 
starting  date 
ending  date 
summation  variable 
starting  date 
ending  date 
summation  variable 
bodate  in  boarding 


obscity 

obsstate  in  boarding 
obslat  in  boarding 
obslong  in  boarding 
viol54  in  boarding 
viol55  in  boarding 
viol56  in  boarding 
viol57  in  boarding 
viol58  in  boarding 
viol59  in  boarding 
botime  in  boarding 

viol61  in  boarding 
viol61  in  boarding 
viol62  in  boarding 
viol63  in  boarding 
viol64  in  boarding 
viol65  in  boarding 
viol66  in  boarding 
viol67  in  boarding 
viol68  in  boarding 
uns69  in  boarding 
bono  in  boarding 
obslat  in  boarding 

uns70  in  boarding 
uns71  in  boarding 
uns72  in  boarding 
uns73  in  boarding 
uns74  in  boarding 
uns75  in  boarding 
uns76  in  boarding 
uns77  in  boarding 
uns78  in  boarding 
uns79  in  boarding 
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Name 


Type 


b4 

integer 
real 

b40 

text 

b41 

text 

b42 

text 

b43 

text 

b44 

text 

b45 

text 

b46 

text 

b47 

text 

b48 

text 

b49 

time 

b5 

integer 

b50 

time 

b51 

text 

b52 

integer 

b6 

integer 

b7 

text 

b8 

text 

b9 

text 

backup 

text 

befc 

>re70 

integer 

bohisprn 

text 

both 

i 

text 

chances 

integer 

change 

text 

chk_ 

hin 

text 

chk_ 

.name 

text 

chk 

.ownr 

text 

chk" 

hin 

text 

chk' 

.intl 

text 

chk" 

.name 

text 

chk" 

.no 

text 

chkl 

op 

text 

chkoffno 

text 

choice 

text 

cmecount 

code 

constrds 

consttst 

cont 

integer 

integer 

text 

text 

text 

correct 

text 

Used  In 

mod_brd.prg 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod  brd.prg 

mod_brd.prg 

mod_brd.prg 

modjord.prg 

modjord.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

mod_brd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

cmerpt.prg 

quer_per .prg 

quer_vsl.prg 

mod_sut.prg 

startup. prg 

mod_sar.prg. 

mod  sut.prg 

sarclay.prg 

mod_brd.prg 

mod_vhin.prg 

mod_brd.prg 

mod_vhin.prg 

mod_owop.prg 

quer_vsl.prg 

quer_vsl.prg 

quer_vsl.prg 

quer_vsl.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sar .prg 

add_sbd.prg 

am_pint.prg 

am  vint.prg 

mo3_owop.prg 

mod  owop.prg 

pack"dbms.prg 

quer_vsl.prg 

vessel. prg 

cmerpt.prg 

intelrpt .prg 

intelrpt .prg 

intelrpt. prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

am_pint.prg 

am  vint.prg 

mod_brd.prg 

mod_sar.prg 

mod_sut.prg 


Description 


vslpob  in  boarding 
obslong  in  boarding 

boreml  in  boarding 
borem2  in  boarding 
borem3  in  boarding 
boname  in  boarding 
borate  in  boarding 
bounit  in  boarding 
bodist  in  boarding 
boopfac  in  boarding 
boday  in  boarding 
bsunrise  in  boarding 
adultpfd  in  boarding 
bsunset  in  boarding 
bovhin  in  boarding 
weapons  in  boarding 
childpfd  in  boarding 
owstatus  in  boarding 
obsbody  in  boarding 
obscount  in  boarding 
flag  variable 


counting  variable 
user  input 

flag  variable 
chances  to  logon 
flag  variable 


flag  variable 

flag  variable 

flag  variable 
flag  variable 
flag  variable 
flag  variable 
flag  variable 
flag  variable 
flag  variable 
user  input  variable 


counting  variable 
input  variable 
=  consdesc  in  CONSTR 
=  cons type  in  CONSTR 
user  input 


user  input 
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Name 

Type 

correct 

text 

count 

integer 

datadiff 

datdiff 

datediff 

integer 
integer 
integer 

datedour 

daybrd 

daysar 

decdatel 

decdate2 

decsar 

difbo 

difsar 

done 


easttst 


edscl 
edsc2 
edsc3 
edsc4 
enddate 


real 

integer 

integer 

date 

date 

integer 

text 

text 

text 


real 


text 
text 

text 
text 
date 


Used  In 

mod_vhin.prg 

mod_vhin.prg 

quer_per.prg 

quer_vsl.prg 

sarday.prg 

startup. prg 

bominor .prg 

bomajor.prg 

boarding. prg 

bominor. prg 

cmerpt.prg 

daynight.prg 

epicdump.prg 

immedsar.prg 

intelrpt.prg 

operator .prg 

owners .prg 

perintel.prg 

sardump.prg 

sarmajor .prg 

sarminor .prg 

sarsmbt.prg 

sartimes .prg 

smboatrp.prg 

violfreq.prg 

sartimes. prg 

daynight.prg 

daynight.prg 

sarday.prg 

sarday.prg 

sarday.prg 

add_sbd.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

add_ownr .prg 

add_sut.prg 

mod_sut.prg 

querjoer.prg 

bomajor.prg 

bominor. prg 

sarmajor. prg 

sarminor .prg 

epicdump.prg 

epicdump.prg 

epicdump.prg 

epicdump.prg 

boarding. prg. 

bomajor.prg 

bominor. prg 

cmerpt.prg 

daynight.prg 

epicdump.prg 

immedsar.prg 


Description 
user  input 
counting  variable 


date  difference 
date  difference 
date  difference 


time  computation  variable 
counting  variable 
counting  variable 
starting  date 
ending  date 
summation  variable 
flag  variable 

flag  variable 

flag  variable 


nautical  position  coord. 


=  epicdscl  in  VSLINTEL 
=  epicdsc2  in  VSLINTEL 
=  epicdsc3  in  VSLINTEL 
=  epicdsc4  in  VSLINTEL 
ending  date 
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Name 

Type 
date 

Used  In 
intelsum.prg 

Description 

enddate 

ending  date 

operator. prg 

owners. prg 
perintel.prg 

sarday.prg 

sardump.prg 

sarmajor.prg 

sarminor.prg 

sarsmbt.prg 

sartimes.prg 

smboatrp.prg 

violfreq.prg 

endltr 

text 

operator .prg 

ending  letter 

opervsl.prg 
opervsls.prg 

owners. prg 

• 

ownvsl.prg 
perintel.prg 

vessel. prg 

vsloper.prg 

vslowner .prg 

engdescr 

text 

intelrpt .prg 

=  ecomptyp  in  ENGCOMP 

engtst 

text 

intelrpt.prg 

=  ecomptvpe  in  ENGCOMP 

epicnum 

integer 

epicdump.prg 

counting" variable 

epictest 

text 

epicdump.prg 

=  epiccode  in  VSLINTEL 

er 

text 

mod_brd.prg 
mod_brd.prg 
mod_owop.prg 
mod_sar .prg 
mod_vhin.prg 

user  input 

error 

text 

mod_brd.prg 

flag  variable 

mod_owop.prg 

• 

mod_owop.prg 

mod_vhih.prg 

fdesc 

text 

intelrpt.prg 

=  fcompdes  in  FUELCOMP 

febdatel 

date 

sarday.prg 

starting  date 
ending  date 

febdate2 

date 

sarday.prg 

febsar 

integer 

sarday.prg 

summation  variable 

fixopr 

text 

add_brd.prg 
add_sar.prg 
add_sbd.prg 

flag  variable 

fixown 

text 

add_brd.prg 
add_sar .prg 
add_sbd.prg 

flag  variable 

fixvsl 

text 

am  vint.prg 

user  input 

foldok 

text 

moH  sut.prg 

flag  variable 

found 
foundv 

text 
text 

sarclay.prg 
mod  vnin.prg 

flag  variable 
user  input 

friday 

integer 

sarday.prg 
intelrpt.prg 

counting  variable 

=  fcomptyp  in  FUELCOMP 

user  input 

fueltst 

text 

9°.  J 

text 

mod_owop.prg 

gridcnt 

integer 

sarmajor.prg 
sarminor.prg 

counting  variable 

hdesc 

text 

intelrpt.prg 

=  hmatdesc  in  HULLMAT 

hulltst 

text 

intelrpt.prg 

=  hmattype  in  HULLMAT 

inarea 

integer 

bomajor .prg 
bominor .prg 
sarmajor.prg 
sarminor.prg 

summation  variable 

initdate 

date 

sarday.prg 

starting  date 

inpct 

real 

bomajor .prg 
bominor. prg 
sarmajor.prg 
sarminor.prg 
sarsmbt.prg 

percentage 
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Name 


Type 


inpcttmp 
inside 

jandatel 

jandate2 

jansar 

juldatel 

juldate2 

qulsar 

jundatel 

jundate2 

lunsar 

legalch 

legaltyp 

legaluse 

len2030 

len3040 

len4050 

len5060 

len6070 

len7080 

len8090 

len90100 

len<20 

len>100 

loadmenu 


loadok 
ltrdiff 


real 
integer 

date 

date 

integer 

date 

date 

integer 

date 

date 

integer 

text 

text 

text 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

text 


text 
integer 


mardatel 

date 

mardate2 

date 

marsar 

integer 

maxaltim 

real 

maxostim 

real 

maxshtim 

real 

maxtttim 

real 

maxtwtim 

real 

maydatel 

date 

maydate2 

date 

maysar 

integer 

menu 

text 

minaltim 

real 

minostim 

real 

minshtim 

real 

mintttim 

real 

mintwtim 

real 

monday 

integer 

more 

text 

Used  In 

sarsmbt.prg 

sarsmbt.prg 

smboatrp.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sardates.prg 

sarday.prg 

sarday.prg 

sarday.prg 

vessel. prg 

vessel. prg 

vessel. prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

add_ownr.prg 

operator. prg 

opervsl.prg 

opervsls.prg 

owners. prg 

ownvsl.prg 

perintel.prg 

vessel. prg 

vsloper.prg 

vslowner.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sartimes .prg 

sartimes.prg 

sartimes. prg 

sartimes .prg 

sartimes.prg 

sarday.prg 

sarday.prg 

sarday.prg 

quer_._vsl.prg 

sartimes. prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

sarday.prg 

add_sbd.prg 

add_brd.prg 

add_ownr.prg 

add_sar.prg 

am_pint.prg 

am  vint.prg 

mo3_brd.prg 


Description 


percentage 
summation  variable 

starting  date 

ending  date 

summation  variable 

starting  date 

ending  date 

summation  variable 

time  computation  variable 

ending  date 
summation  variable 
flag  variable 
flag  variable 
flag  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
flag  variable 


flag  variable 
letter  difference 


starting  date 
ending  date 
summation  variable 
maximum  alongside  time 
maximum  on  scene  time 
maximum  search  time 
maximum  total  case  time 
maximum  towing  time 
starting  date 
ending  date 
summation  variable 
flag  variable 
minimum  alongside  time 
minimum  on  scene  time 
minimum  search  time 
minimum  total  case  time 
minimum  towing  time 
counting  variable 
flag  variable 
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Name 

Type 
text 

Used  In 

more 

mod_sar.prg 

mod_sut.prg 

mod_vhin.prg 

quer_per.prg 

quer_._vsl.prg 

mrintel 

text 

am_plnt.prg 
am  vint.prg 

mrname 
mropers 

text 

text 

querper.prg 

add_brd.prg 

add_sbd.prg 

mrownrs 

text 

add_brd.prg 
add_ownr .prg 
add_sar .prg 
add_sbd.prg 

mrsar 

text 

mod_sar .prg 

mrsut 

text 

mod_sut .prg 

mrunits 

text 

add_sar .prg 
add_sbd.prg 
add_sut.prg 

mrvsls 

text 

mod_brd.prg 
mod_vhin.prg 

name 

text 

mod_sut.prg 

nameok 

text 

quer_vsl.prg 

new 

integer 

sarday .prg 
daynight.prg 

nitebrd 

integer. 

nitesar 

integer 

daynight.prg 

nmchange 

text 

mod_owop.prg 

northtst 

real 

bomajor.prg 
bominor .prg 
sarmajor .prg 
sarminor .prg 

notimmed 

integer 

immedsar. prg 

novdatel 

date 

sarday. prg 

novdate2 

date 

sarday. prg 

novsar 

integer 

sarday. prg 

numrows 

integer 

boarding. prg 
immedsar .prg 
ihtelrpt.prg 
operator. prg 
opervsls .prg 
owners. prg 

ownvsi.prg 
perintel.prg 
sarday .prg 
sardump.prg 
sarmajor .prg 
sarminor .prg 
sarsmbt.prg 
vessel. prg 
vsloper.prg 
vslowner.prg 

numyears 
obslat 

integer 

sarday .prg 
smboatrp.prg 

real 

obslong 

real 

smboatrp.prg 

octdatel 

date 

sarday .prg 

octdate2 

date 

sarday .prg 

octsar 

integer 

sarday .prg 

old 

integer 

sarday. prg 

oldfold 

text 

mod_sar .prg 

opl 

text 

add_brd.prg 
add_sar .prg 
add_sbd.prg 
mod_owop.prg 

Description 
flag  variable 

user  input 

user  input 
user  input 

user  input 


user  input 
user  input 
user  input 


user  input 

flag  variable 

flag  variable 

this  year's  sar  cases 

counting  variable 

counting  variable 

flag  variable 

nautical  position  coord. 


non-immediate  SAR  Cases 
starting  date 
ending  date 
summation  variable 
counting  variable 


counting  variable 
nautical  position  coord, 
nautical  position  coord. 
starting  date 
ending,  date 
summation  variable 
previous  year's  sar  cases 
folder  number 
oplname  in  operator 
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Name 

Type 

oplO 

text 

opll 

integer 

op  2 

text 

op  3 

text 

op4 

text 

op  5 

text 

op6 

text 

op7 

text 

op8 

text 

op  9 


opchange 

opfound 

opid 


oprfound 

oscavg 

osdate 

ossum 

ostime 

ostimes 

out 

outarea 


outpct 


outpcttm 
outside 


date 


text 
text 
integer 


text 

real 

date 

real 

time 

integer 

text 

integer 


real 


real 
integer 


Used  In 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

mod_owop.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

mod_owop.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

mod_owop.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

mod_owoD.prg 

add_brd'.prg 

add_sar .prg 

add_sbd.prg 

mod_owop.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

mod  owop.prg 

add^rd.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

mod~owop.prg 

mod_owop.prg 

mod_owop.prg 

quer_per.prg 

quer_vsl.prg 

quer_jper  .prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

add_ownr .prg 

bomajor.prg 

bominor .prg 

sarmajor.prg 

sarminor.prg. 

bomajor.prg 

bominor. prg 

sarmajor.prg 

sarminor.prg 

sarsmbt.prg 

sarsmbt.prg 

sarsmbt.prg 

smboatrp.prg 


Description 
opcourse  in  operator 

opid  in  operator 

opfname  in  operator 

opmi  in  operator 

opaddr  in  operator 

opcity  in  operator 

opstate  in  operator 

opzip  in  operator 

optelno  in  operator 

opdob  in  operator 


flag  variable 
flag  variable 
operator  id  (system) 


flag  variable 
average  on  scene  time 
on  scene  date 
summation  variable 
on  scene  time 
counting  variable 
flag  variable 
summation  variable 


percentage 


percentage 
summation  variable 
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Name 

Type 
text 

Used  In 

owl 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

owlO 

text 

add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 

ow2 

text 

add_brd.prg 
add_sar .prg 
add_sbd.prg 
mod_owop.prg 

ow3 

text 

add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 

ow4 

text 

add_brd.prg 
add_sar .prg 
add_sbd.prg 
mod_owop.prg 

ow5 

text 

add_brd.prg 
add_sar .prg 
add_sbd.prg 
mod_owop.prg 

ow6 

text 

addjord.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 

ow7 

text 

add_brd.prg 
add_sar .prg 
add_sbd.prg 
mod_owop.prg 

ow8 

text 

add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 

ow9 

date 

add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 

owchange 
owfound 

text 

mod_owop.prg 

text 

mod_owop.prg 
quer_vsl.prg 

owhisprn 

text 

owid 

integer 

quer_vsl.prg 

owndone 

text 

quer_per.prg 

ownfound 

text 

quer_per .prg 

owootest 

text 

quer_per .prg 

pcik6 

integer 

brd_main.prg 

pct2030 

real 

intelrpt.prg 

pct3040 

real 

intelrpt.prg 

pct4050 

real 

intelrpt.prg 

pct506.C 

real 

intelrpt.prg 

pct54 

real 

violfreq.prg 

pct54tmp 

real 

violfreq.prg 

pct55  ■ 

real 

violfreq.prg 

pct55tmp 

real 

violfreq.prg 

pct56 

real 

violfreq.prg 

pct56tmp 

real 

violfreq.prg 

pct57 

real 

violfreq.prg 

pct57tmp 

real 

violfreq.prg 

pct58 

real 

violfreq.prg 

pct58tmp 

real 

violfreq.prg 

pct59 

real 

violfreq.prg 

pct59tmp 

real 

violfreq.prg 

pct60 

real 

violfreq.prg 

Description 
ownlname  in  owners 

ownid  in  owners 

ownfname  in  owners 

ownmi  in  owners 

ownaddr  in  owners 

owncity  in  owners 

ownstate  in  owners 

ownzip  in  owners 

owntelno  in  owners 

owndob  in  owners 


flag  variable 

flag  variable 

user  input 

owner  id  (system) 

flag  variable 

flag  variable 

flag  variable 

counting  variable 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentaae 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 
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Name 

pct6070 
pct60tmp 

pctei 

pct61tmp 

pct62 

pct62tmp 

pct63 

pct63tmp 

pct64 

pct64tmp 

pct65 

pct65tmp 

pct66 

pct66tmp 

pct67 

pct67tmp 

pct68 

pct68tmp 

pct69 

pct69tmp 

pct70 

pct7080 

pct70tmp 

pct71 

pct7175 

pct71tmp 

pct72 

pct72tmp 

pct73 

pct73tmp 

pct74 

pct74tmp 

pct75 

pct75tmp 

pct76 

pct7679 

pct76tmp 

pct77 

pct77tmp 

pct73 

pct78tmp 

pct79 

pct79tmp 

pct8081 

pct8090 

pct8283 

pct8485 

pct8687 

pct8889 

pct9010 

pct90100 

pct<00 

pct<20 

pct<60 

pct<65 

pct<70 

pct<75 

pct<80 

pct<85 

pct<90 

pct<95 

pct>00 

pct>100 

pctapr 

pctaug 


Type 


real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

integer 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real  - 

real 

real 

real 

real 

real 

real 

real 

real 


Used  In 

intelrpt.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

intelrpt.prg 

violfreq.prg 

violfreq.prg 

cmerpt.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

cmerpt.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

cmerpt.prg 

inteirpt.org 

cmerpt.prg 

cmerpt.prg 

cmerpt.prg 

cmerpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

sarday.prg 

sarday.prg 


Description 


percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
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Name 

pctchang 

pctcme 

pctdayb 

pctdays 

pctdec 

pctfeb 

pctfri 

pctgt90 

pctimmed 

pctjan 

pct^ul 

pctjun 

pctlt70 

pctmar 

pctmay 

pctmon 

pctniteb 

pctnites 

pctnotim 

pctnov 

pctoct 

pctsat 

pctsep 

pctsuh 

pcttempl 

pcttemp2 

pctthu 

pcttue 

pctwed 

perintpr 

persprn 

pg 


pgcount 


pickl 

picklO 

pickll 

pick2 

pick3 

pick4 

pick5 

pick7 

pick8 

pick9 

prdesc 

proptst 

reenter 


review 


sunits 


Type 


real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
text 
text 
integer 


integer 


integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

text 

text 

text 


text 


text 


Used  In 

sarday.prg 

cmerpt.prg 

daynight.prg 

daynight.prg 

sarday.prg 

sarday.prg 

sarday.prg 

cmerpt.prg 

immedsar .prg 

sarday.prg 

sarday.prg 

sarday.prg 

cmerpt.prg 

sarday.prg 

sarday.prg 

sarday.prg 

daynight.prg 

daynight.prg 

immedsar. prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

epicdump.prg 

epicdump.prg 

sarday.prg 

sarday.prg 

sarday.prg - 

quer_per .prg 

querper .prg 

addjord.prg 

add_sar .prg 

add_sbd.prg 

mod_brd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

sarsys.prg 

qrymain.prg 

utlmain.prg 

inpmain.prg 

modmain.prg 

rptmain.prg 

int_main.prg 

sar_main.prg 

vsl_main.prg 

prs_main.prg 

intelrpt.prg 

intelrpt.prg 

add_ownr .prg 

am_pint.prg 

am  vint.prg 

mo3_sar .prg 

mod_sut .prg 

add_brd.prg 

add_sar .prg 

add  sbd.prg 

modl^rd.prg 

add_sar.prg 

add_sbd.prg 


Description 


percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

%  immediate  SAR  cases 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

%   non- immediate  SAR  Cases 

percentage 

percentage 

percentage 

percentage 

percentage 

%  epiccode  /  total  vsls 

%  epiccode  /  total  vsls 

percentage 

percentage 

percentage 

user  input 

user  input 

counting  variable 


counting  variable 


menu  variable 

menu  variable 

menu  variable 

menu  variable 

menu  variable 

menu  variable 

menu  variable 

menu  variable 

menu  variable 

menu  variable 

=  propdesc  in  BOATPROP 

=  proptype  in  BOATPROP 

user  input 


flag  variable 


user  input 
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Name 


si 


slO 
sll 
sl2 
sl3 
sl4 
sl5 
sl6 
sl7 
sl8 
sl9 
s2 


s20 
s21 
s22 
s3 


s4 


s5 


s6 


s7 

s8 

s9 

sarOO 

sarOl 

sar02 

sar03 

sar04 

sar05 

sar06 

sar07 

sar08 

sar09 

sarlO 

sarll 

sarl2 

sar81 

sar82 

sar83 

sar84 

sar85 

sar86 

sar87 

sar88 

sar89 

sar90 

sar91 

sar92 

sar93 

sar94 

sar95 

sar96 

sar97 

sar98 


_Type_ 

date 

text 

integer 

text 

real 

real 

integer 

text 

text 

text 

text 

text 

time 

text 
text 
text 
text 
real 

text 
real 

date 
text 

text 
text 

time 

time 

time 

text 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 


Used  In 

add_sar.prg 

add_sbd.prg 

mod_sar.prg 

mod_sar.prg 

mod_sar.prg 

mod_sar.prg 

mod_sar.prg 

mod_sar.prg 

mod_sar .prg 

mod_sar.prg 

mod_sar.prg 

mod_sar.prg 

mod_sar.prg 

add_sar.prg 

add_sbd.prg 

mod_sar.prg 

mod_sar .prg 

mod_sar.prg 

mod_sar.prg 

add_sar .prg 

add_sbd.prg 

mod_sar.prg 

add_sar.prg 

add_sbd.prg 

mod_sar.prg 

add_sar.prg 

add_sbd.prg 

mod_sar .prg 

add_sar.prg 

add_sbd.prg 

mod_sar.prg 

mod_sar.prg 

mod_sar.prg 

mod  sar.prg 

sar3ay.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 


Description 

sardate  in  sar 

folderno  in  sar 
sarpob  in  sar 
sarvhin  in  sar 
sarlat  in  sar 
sarlong  in  sar 
distoff  in  sar 
immedsar  in  sar 
winddir  in  sar 
windspd  in  sar 
visdist  in  sar 
clouds  in  sar 
sartime  in  sar 

ucn  in  sar 
ceiling  in  sar 
seas  in  sar 
swells  in  sar 
sarlat  in  sar 

mucn  in  sar 
sarlong  in  sar 

sardate  in  sar 
sarnod  in  sar 

sarday  in  sar 
sarvhin  in  sar 

sartime  in  sar 
ssunrise  in  sar 
ssunset 
sarnod  in  sar 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
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Name 


Type 


sar99 

integer 

sarhsprn 

text 

Saturday 

integer 

schavg 

real 

schtimes 

integer 

searchok 

text 

sepdatel 

date 

sepdate2 

date 

sepsar 

integer 

southtst 

real 

status 

text 

strtdate 

date 

strtltr 


sul 

sulO 

sull 

sul2 

sul3 

sul4 

sul5 

sul6 

su2 

su3 

su4 

su5 

su6 

su7 

su8 

su9 

suml 

sumlO 

sumll 

suml  2 

sum2 

sum20 

sum3 


text 


text 

date 

time 

date 

time 

date 

time 

date 

text 

time 

date 

time 

date 

time 

date 

text 

integer 

integer 

integer 

integer 

integer 

integer 

integer 


Used  In 

sarday.prg 

quer_per.prg 

quer_vsl.prg 

sarday.prg 

sartimes.prg 

sartimes.prg 

quer_per.prg 

sarday.prg 

sarday.prg 

sarday.prg 

bomajor .prg 

bominor.prg 

sarmajor .prg 

sarminor .prg 

querper .prg 

boarding. prg 

bomajor .prg 

bominor.prg 

cmerpt.prg 

daynight.prg 

epicdump.prg 

immedsar .prg 

intelrpt.prg 

operator .prg 

owners. prg 

perintel.prg 

sardump.prg 

sarmajor. prg 

sarminor .prg 

sarsmbt .prg 

sartimes.prg 

smboatrp.prg 

violfreq.prg 

operator. prg 

opervsl.prg 

ooervsls.prg 

owners. prg 

ownvsl.prg 

perintel.prg 

vessel. prg 

vsloper.prg 

vslowner .prg 

mod_sut .prg 

mod_sut.prg 

mod_sut .prg 

mod_sut.org 

mod_sut.prg 

mod_sut.prg 

mod_sut .prg 

mod_sut.prg 

mod_sut.prg 

mod_sut.prg 

mod_sut .prg 

mod_sut.prg 

mod_sut.prg 

mod_sut.prg 

mod_sut.prg 

mod  sut.prg 

sar3ay.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 

sarday.prg 


Description 


counting  variable 
user  input 

counting  variable 
average  search  time 
counting  variable 
flag  variable 
starting  date 
ending  date 
summation  variable 
nautical  position  coord. 


flag  variable 
starting  date 


starting  letter 


foldno  in  sarunits 
alngdate  in  sarunits 
towtime  in  sarunits 
towdate  in  sarunits 
dvmoored  in  sarunits 
dvmdate  in  sarunits 
sutmoor  in  sarunits 
sutdate  in  sarunits 
unit  in  sarunits 
uwtime  in  sarunits 
uwdate 

oseta  in  sarunits 
etadate  in  sarunits 
ostime  in  sarunits 
osdate  in  sarunits 
alngtime  in  sarunits 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
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Name 


Type 


sum4 

integer 

sum5 

integer 

sum6 

integer 

sumconst 

integer 

sumeng 

integer 

sumfuel 

integer 

sumhull 

integer 

sumprop 
sumtype 

integer 

integer 

sumuse 

integer 

sunday 
sutdate 

integer 

date 

sutmoor 

time 

temppct 

real 

test 

real 

thursday 

integer 

time add 

real 

timehour 

real 

totavg 

real 

totbrds 

integer 

totepics 

integer 

totimmed 

integer 

totsars 

integer 

totsum 

real 

tottimes 

integer 

totviols 

integer 

towavg 

real 

towsum 

real 

towtimes 

integer 

tuesday 

integer 

tvl 

integer 

tvlO 

integer 

tv2 

integer 

tv20 

integer 

tv3 

integer 

tv30 

integer 

tv4 

integer 

tv5 

integer 

typchoic 

text 

typdescl 

text 

typetest 

text 

uns69s 

integer 

uns70s 

integer 

uns71s 

integer 

uns72s 

integer 

uns73s 

integer 

uns74s 

integer 

uns75s 

integer 

uns76s 

integer 

uns77s 

integer 

uns78s 

integer 

uns79s 

integer 

unstotl 

integer 

Used  In 

sarday.prg 

sarday.prg 

sarday.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

sarday.prg 

sartimes .prg 

sartimes.prg 

bomajor .prg 

bominor.prg 

sarmajor.prg 

sarminor.prg 

sartimes.prg 

sarday.prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

cmerpt.prg 

daynight.prg 

intelrpt.prg 

smboatrp.prg 

epicdump.prg 

immedsar .prg 

daynight.prg 

immedsar. prg 

sarday.prg 

sarmajor .prg 

sarsmbt.prg 

sartimes.prg 

sartimes.prg 

intelrpt.prg 

intelrpt.prg 

sartimes.prg 

sartimes.prg 

sartimes.prg 

sarday.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

vessel. prg 

intelrpt.prg 

intelrpt.prg 

vessel. prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 


Description 


summation  va 
summation  va 
summation  va 
counting  var 
counting  var 
counting  var 
counting  var 
counting  var 
counting  var 
counting  var 
counting  var 
sar  unit  moo 
sar  unit  moo 
percentage 


riable 

riable 

riable 

iable 

iable 

iable 

iable 

iable 

iable 

iable 

iable 

red  date 

red  time 


comparison  variable 
counting  variable 
time  computation  variable 
time  computation  variable 
average  total  case  time 
counting  variable 


counting  variable 
counting  variable 
total  sars 


summation  variable 
counting  variable 
summation  variable 

average  towing  time 
summation  variable 
counting  variable 
counting  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable  . 
user  type  choice 
=  vtypedes  in  BOATTYPE 
=  vtype  in  BOATTYPE 

counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
summation  variable 
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Name 


Type 


unstot2 

integer 

unstot3 

integer 

unstot4 

integer 

unstot5 

integer 

unstot6 

integer 

unstot7 

integer 

unstotal 

integer 

usechoic 

text 

usedescl 

text 

username 

text 

userpass 

text 

usetest 

text 

uwdate 

date 

uwtime 

time 

vl 

text 

vlO 


text 


vll 

text 

vl2 

text 

vl3 

text 

vl4 

text 

vl5 

text 

vlfi 

text 

vl7 

text 

vl8 

text 

vl9 

text 

v2 

text 

v20 

text 

v21 

text 

v22 

text 

v23 

text 

Used  In 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

vessel. prg 

intelrpt.prg 

startup. prg 

startup. prg 

intelrpt.prg 

vessel. prg 

sartimes.prg 

sartimes.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

add  sbd.prg 

addlbrd.prg 

add_sar .prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 


Description 


summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
total  unsafe  conditions 
user  vessel  use  choice 
=  vusedesc  in  BOATUSE 
user  name  input 
user  password 
=  vuse  in  BOATUSE 

underway  date 
underway  time 
vslno  in  vessel 


vslhp  in  vessel 


vsluse  in  vessel 


vsltype  in  vessel 
vslprop  in  vessel 


vslhull  in  vessel 


vsleng  in  vessel 


vslfuel  in  vessel 


vslconst  in  vessel 


cmedecal  in  vessel 


cmeyuear  in  vessel 


vslname  in  vessel 


vsloffno  in  vessel 


homeport  in  vessel 


vslcall  in  vessel 


vslvalue  in  vessel 
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Name 

Type 

v24 

text 

v25 

text 

v26 

text 

v27 

text 

v28 

text 

v29 

text 

v3 

text 

v30 

text 

v31 

text 

v32 

text 

v4 

text 

v5 

text 

v6 

text 

v7 

integer 

v8 

integer 

v9 

integer 

vadult 

integer 

vale 

text 

valgdate 

date 

valgtime 


validusr 
vbadhin 


time 


text 
text 


Used  In 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

addjord.prg 

add_sar .prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

add_brd.prg 

add_sa.r.prg 

add_sbd.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

add  sbd.prg 

add^brd.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer_vsl.prg 

add_sar.prg 

add_sbd.prg 

add_sut .prg 

mod_sut.prg 

add_sar.prg 

add_sbd.prg 

add_sut.prg 

mod_sut.prg 

startup. prg 

mod_vhm.prg 


Description 
vslsuper  in  vessel 

vslmasts  in  vessel 

sailno  in  vessel 

hlcolor  in  vessel 

trcolor  in  vessel 

slcolor  in  vessel 

vslhin  in  vessel 

cbcolor  in  vessel 

dkcolor  in  vessel 

vslmarks  in  vessel 

vslmake  in  vessel 

vslmodel  in  vessel 

vslyear  in  vessel 

vsltons  in  vessel 

vsllenft  in  vessel 

vsllenin  in  vessel 

adultpfd  in  boarding 

operator  alcohol  conditio 
date  alongside 

time  alongside 


flag  variable 
vslnin  in  vessel 
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Name 
vbodate 

vboday 

vbodist 

vbolat 

vbolong 

vboname 

vbono 

vboopfac 
vborate 

vboreml 

vborem2 

vborem3 


_Type^ 
date 


text 

text 

real 
real 
text 

text 

text 
text 

text 

text 

text 


vbosrise 

time 

vbosset 

time 

vbotime 

time 

vbounit 
vcall 


text 
text 


Used  In 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

add_Srd.prg 

add_sbd.prg 

mod_brd.prg 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer_vsl.prg 

quer_per .prg 

quer  vsl.prg 

add_b~rd.prg 

add  sbd.prg 

modZb^d.prg 

quer_per .prg 

quer  vsl.prg 

add_5rd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

addjord.prg 

add_sbd.prg 

mod_brd.prg 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

add_5rd.prg 

add  sbd.prg 

mod^fd.prg 

quer_per.prg 

quer  vsl.prg 

addjord.prg 

add_sbd.prg 

mod_brd.prg 

quer_per .prg 

quer  vsl.prg 

add_b~rd.prg 

add_sbd.prg 

mod_brd.prg 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

add_brd.prg 

add  sbd.prg 

modjDrd.prg 

quer_per .prg 

quer  vsl.prg 

addjord.prg 

add  sbd.prg 

mod^D^d.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 


Description 
boarding  date 

boday  in  boarding 

bodist  in  boarding 

latitude  position 
longitude  position 
boname  in  boarding 

boarding  report  number 

boopfac  in  boarding 
borate  in  boarding 

boreml  in  boarding 

borem2  in  boarding 

borem3  in  boarding 

bsunrise  in  boarding 
bsunset  in  boarding 
boarding  time 

bounit  in  boarding 
vessel  call  sign 
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Name 

Type 

vcbcolor 

text 

vceiling 

text 

vchild 

integer 

vclouds 

text 

vcmeyear 

text 

vconstr 

text 

vdate 

date 

vdateos 

date 

vdecal 

text 

vdistoff 

integer 

vdkcolor 

text 

vdob 
vdvmoord 

date 
date 

vdvmoort 

time 

vepic 

text 

vetadate 

date 

vfname 

text 

vfoldno 

text 

vhlcolor 


text 


Used  In 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_sar.prg 

add_sbd.prg 

mod_sar.prg 

add_brd.prg 

add_sbd.prg 

modjord.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

mod_vhin.prg 

quer_per.prg 

quer_vsl.prg 

add_sar.prg 

add_sbd.prg 

add_sut.prg 

mod_sut .prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_sar .prg 

add_sbd.prg 

mod_sar .prg 

quer_per.prg 

quer  vsl.prg 

addjord.prg 

add_sar.prg 

add_sbd.prg 

quer_vsl.prg 

add_sar.prg 

add_sbd.prg 

add_sut .prg 

mod_sut.prg 

add_sar.prg 

add_sbd.prg 

add_sut.prg 

mod_sut„prg 

am_vint.prg 

quer_per.prg 

quer_vsl.prg 

add_sar .prg 

add_sbd.prg 

add^sut.prg 

mod_sut.prg 

am_pint.prg 

quer_per.prg 

quer_vsl.prg 

add_sar.prg 

add_sbd.prg 

add_sut.prg 

mod_sar.prg 

mod_sut .prg 

quer_per .prg 

quer  vsl.prg 

addjord.prg 

add_sar.prg 

add_sbd.prg 


Description 
cabin  color 

ceiling  in  sar 

childpfd  in  baording 

clouds  in  sar 
erne  decal  year 

coded  vessel  construction 

intelligence  date 
on  scene  date 

erne  decal? 
distance  offshore 


deck  color 


date  of  birth 

date  distressed  vessel  mo 


time  distressed  vessel  mo 


epiccode  in  vslintel 


on  scene  eta  date 


intfname  in  perintel 


sar  folder  number 


hull  color 
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Name 

Type 
text 

Used  In 

vhome 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

vimmed 

text 

add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per .prg 
quer^vsl.prg 

vintdate 

date 

am_pint.prg 

am_pint.prg 

am_vint.prg 

quer_per.prg 

quer^vsl.prg 

vintdob 

date 

am_pint.prg 

vintmi 

text 

am_pint .prg 

vintprn 

text 

quer^vsl.prg 

vintreml 

text 

am_pint.prg 
am_vint.prg 

vintrem2 

text 

am_pint.prg 
am_vint.prg 

vintrem3 

text 

am_pint.prg 
am_vint.prg 

viol54s 

integer 

violfreq.prg 

viol55s 

integer 

violfreq.prg 

viol56s 

integer 

violfreq.prg 

viol57s 

integer 

violfreq.prg 

viol58s 

integer 

violfreq.prg 

viol59s 

integer 

violfreq.prg 

viol60s 

integer 

violfreq.prg 

viol61s 

integer 

violfreq.prg 

viol62s 

integer 

violfreq.prg 

viol63s 

integer 

violfreq.prg 

vioI64s 

integer 

violfreq.prg 

viol65s 

integer 

violfreq.prg 

viol66's 

integer 

violfreq.prg 

viol67s 

integer 

violfreq.prg 

viol68s 

integer 

violfreq.prg 

vlname 

text 

am_pint.prg 
quer_per .prg 
quer  vsl.prg 

vltndesc 

text 

mtelrpt.prg 

vmarks 

text 

add_brd.prg 
add_sar.prg 
add_sbd.prg 

vmasts 

text 

add_brd.prg 
add_sar .prg 
add_sbd.prg 

vmaxop 

integer 

add_brd.prg 
add_sar.prg 
add_sbd.prg 

vmaxoper 

integer 

add_sbd.prg 

vmaxown 

integer 

add_brd.prg 
add_sar .prg 
add_sbd.prg 

vmi 

text 

quer_per .prg 
quer_vsl.prg 

vmucn 

text 

add_sar.prg 
add_sbd.prg 
mod_sar .prg 
quer_per.prg 
quer  vsl.prg 

vno 

text 

mtelrpt.prg 

Description 
vessel  homeport 

immediate  sar? 


pintdate  in  perintel 


intdob  in  perintel 
intmi  in  perintel 
user  input 
pintreml  in  perintel 

pintrem2  in  perintel 

pintrem3  in  perintel 


counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
intlname 


variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
in  perintel 


=  violdesc  in  VIOLS 
vessel  unusual  markings 

number  of  vessel  masts 

comparison  variable 

comparison  variable 
comparison  variable 

middle  initial 
multi-unit  case  number 


=  violno  in  VIOLS 
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Name 

Type 

vobcount 

text 

vobsbody 

text 

vobscity 

text 

vobslat 

real 

vobslong 

real 

vobstate 

text 

voffno 

text 

vopaddr 


text 


vopcity 


text 


vopcrse 


text 


vopdob 


date 


vopfname 


text 


vopid 
voplname 


integer 


text 


Used  In 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

mod_vhin.prg 

quer_per.prg 

quer  vsl.prg 

add_Hrd.prg 

add_sar.prg 

add  sbd.prg 

mod_owop.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sar .prg 

add_sbd.prg 

mod_owop.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sar .prg 

add_sbd.prg 

mod_owoo.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

mod_owop.prg 

quer_per.prg 

quer_vsl.prg 


Description 
obscount  in  boarding 

obsbody  in  boarding 

obscity  in  boarding 

latitude  position 

longitude  position 

obsstate  in  boarding 

vessel  official  numbers 


operator  street  address 


operator  city  address 


operator  course  code 


operator  date  of  birth 


operator  first  name 


operator  id  (system) 
operator  last  name 
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Name 
vopmi 


text 


vopst 


text 


voptelno 


text 


vopzip 


text 


voseta 


vostatus 


vostime 


vowaddr 


time 


text 


time 


text 


vowcity 


text 


vowdob 


date 


vowfname 


text 


vowid 
vowlname 


integer 
text 


Used  In 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quer_per .prg 

quer  vsl.prg 

add_Erd.prg 

add_sar .prg 

add_sbd.prg 

mod_owop.prg 

quer_per.prg 

quer  vsl.prg 

addjord.prg 

add_sar .prg 

add_sbd.prg 

mod_owop.prg 

quer_per .prg 

quer  vsl.prg 

add_5rd.prg 

add_sar .prg 

add_sbd.prg 

mod_owop.prg 

quer_per .Drg 

quer_vsl.prg 

add_sar.prg 

add_sbd.prg 

add_sut.prg 

mod_sut.prg 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

add_sar.prg 

add_sbd.prg 

add_sut.prg 

mod_sut.prg 

add_brd.prg 

add_ownr.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quer  vsl.prg 

add_Erd.prg 

add_ownr .prg 

add_sar .prg 

add_sbd.prg 

mod_owop.prg 

quer  vsl.prg 

add_5rd.prg 

add_ownr .prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quer  vsl.prg 

add_b"rd.prg 

add_ownr .prg 

add_sar .prg 

add_sbd.prg 

mod_owop.prg 

quer_vsl.prg 

^erper.prg 

add_brd.prg 

add_ownr .prg 

add_sar .prg 

add_sbd.prg 

mod_owop.prg 

quer_vsl.prg 


Description 
operator  middle  initial 


operator  state  address 


operator  telephone  number 


operator  zip  code 


on  scene  eta  .time 


owstatus  in  boarding 


on  scene  time 


owner  street  address 


owner  city  address 


owner  date  of  birth 


owner  first  name 


owner  record  id  number 
owner  last  name 
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Name 
vowmi 


vownid 


vowst 


vowtelno 


vowzip 


vpct2030 

vpct3040 

vpct4050 

vpct5060 

vpct6070 

vpct70 

vpct7080 

vpct71 

vpct76 

vpct80 

vpct8090 

vpct82 

vpct84 

vpct36 

vpct88 

vpct90 

vpct9010 

vpct<00 

vpct<20 

vpct<60 

vpct<65 

vpct<70 

vpct<75 

vpct<80 

vpct<85 

vpct<90 

vpct<95 

vpct>00 

vpct>100 

vperaddr 

vpercity 

vperdob 

vpermi 


_Type^ 
text 


text 


text 


text 


text 


real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
text 
text 
date 
text 


Used  In 

add_brd.prg 

add_ownr.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quer  vsl.prg 

add_Erd.prg 

add_brd.prg 

add_ownr.prg 

add_sar.prg 

add_sbd.prg 

add_sbd.prg 

mod_owop.prg 

mod_owop.prg 

add_brd.prg 

add_ownr .prg 

add_sar .prg 

add_sbd.prg 

mod_owop.prg 

quer  vsl.prg 

addJSrd.prg 

add_ownr.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quer  vsl.prg 

add_Srd.prg 

add_ownr.prg 

add_sar.prg 

add_sbd.prg 

mod_owop.prg 

quer  vsl.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

cmerpt.prg 

intelrpt.prg 

cmerpt.prg 

cmerpt.prg 

cmerpt.prg 

intelrpt.prg 

cmerpt.prg 

cmerpt.prg 

cmerpt.prg 

cmerpt.prg 

cmerpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

intelrpt.prg 

quer_per.prg 

quer_per.prg 

quer_per.prg 

quer_per.prg 


Description 
owner  middle  initial 


owner  id  (system) 


owner  state  address 


owner  telephone  number 


owner  zip  code 


percentage 

percentage 

percentage 

percentage 

percentage 

percentage  ' 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

street  address 

city  address 

date  of  birth 

middle  initial 
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Name 


Type 


vperst 

vpertel 

vperzip 

vpfname 

vplname 

vreml 

text 
text 
text 
text 
text 
text 

vrem2 

text 

vrem3 

text 

vsailno 

text 

vsardate 

date 

vsarday 


vsarhin 
vsarlat 


vsarlong 

vsarnod 
vsarpob 

vsartime 


text 


text 
real 


real 

text 
integer 

time 


vseas 

text 

vslcolor 

text 

vslfound 
vslprn 

text 
text 

vstolen 

text 

vsumoord 

date 

Used  In 

quer_per.prg 

quer_per.prg 

quer_per.prg 

quer_per.prg 

quer_per.prg 

quer_per.prg 

quer_vsl.prg 

quer_per.prg 

quer_vsl.prg 

quer_per.prg 

quer  vsl.prg 

add_Srd.prg 

add_sar .prg 

add_sbd.prg 

add_sar .prg 

add_sbd.prg 

mod_sar.prg 

quer_per.prg 

quer_vsl.prg 

add_sar.prg 

add_sbd.prg 

mod_sar.prg 

quer_per .prg 

quer_vsl.prg 

mod_sar .prg 

add_sar .prg 

add_sbd.prg 

mod_sar .prg 

quer_per .prg 

quer_vsl.prg 

add_sar .prg 

add_sbd.prg 

mod_sar .prg 

quer_per .prg 

quer_vsl.prg 

add_sar.prg 

add_sbd.prg 

mod_sar .prg 

add_sar .prg 

add_sbd.prg 

mod_sar.prg 

quer_per.prg 

quer_vsl.prg 

add_sar .prg 

add_sbd.prg 

mod_sar .prg 

quer_per .prg 

quer_vsl.prg 

add_sar .prg 

add_sbd.prg 

mod_sar .prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

mod_vhin.prg 

quer_per.prg 

quer^vsl.prg 

am_vint.prg 

quer_per .prg 

quer_vsl.prg 

add_sar .prg 

add_sbd.prg 

add_sut .prg 

mod_sut .prg 


Description 


state  address 

telephone  number 

zip  code 

first  name 

last  name 

personnel  intelligence  re 

personnel  intelligence  re 

personnel  intelligence  re 

sail  number 

sar  date 


sar  day  of  the  week 


sarvhin  in  sar 
latitude  position 


longitude  position 


nature  of  distress 


personnel  on  board 


sar  time 


seas  in  sar 


sail  color 


flag  variable 
user  input 

stolen  in  vslintel 


date  sar  unit  moored 
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Name 

Type 

vsumoort 

time 

vsunrise 

time 

vsunset 

time 

vsuper 


vunit 


vuns69 


vuns70 


vuns71 


text 


vswells 

text 

vtotl 

integer 

vtotlO 

integer 

vtotll 

integer 

vtotl2 

integer 

vtotl3 

integer 

vtot2 

integer 

vtot3 

integer 

vtot4 

integer 

vtot5 

integer 

vtotS 

integer 

vtot7 

integer 

vtot8 

integer 

vtot9 

integer 

vtotal 

integer 

vtowdate 

date 

vtowtime 

time 

vtr.color 

text 

vucn 

text 

text 


text 


text 


text 


Used  In 

add_sar.prg 

add_sbd.prg 

add_sut.prg 

mod_sut.prg 

add_sar.prg 

add_sbd.prg 

mod_sar.prg 

add_sar.prg 

add_sbd.prg 

mod_sar.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

add_sar.prg 

add_sbd.prg 

mod_sar .prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

violfreq.prg 

add_sar .prg 

add_sbd.prg 

add_sut.prg 

mod_sut.prg 

add_sar .prg 

add_sbd.prg 

add_sut.prg 

mod_sut.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_sar.prg 

add_sbd.prg 

mod_sar .prg 

quer_per .prg 

quer_vsl.prg 

add_sar .prg 

add_sbd.prg 

add_sut.prg 

mod  sut.prg 

add^rd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

add_b~rd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per .prg 

quer  vsl.prg 

addjord.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer_vsl.prg 


Description 
time  sar  unit  moored 

bsunrise  in  boarding 
bsunset  in  boarding 
vessel  superstructure 
swells  in  sar 


summa 
summa 
summa 
summa 
summa 
summa 
summa 
summa 
summa 
summa 
summa 
summa 
summa 
total 
date 


tion 
tion 
tion 
tion 
tion 
tion 
tion 
tion 
tion 
tion 
tion 
tion 
tion 
vio 
star 


var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
lati 
ted 


iable 

iable 

iable 

iable 

iable 

iable 

iable 

iable 

iable 

iable 

iable 

iable 

iable 

ons 

towing 


time  started  towing 


trim  color 


unit  case  number 


sar  unit  name 


unsafe  condition  69 


unsafe  condition  70 


unsafe  condition  71 
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Name 
vuns72 

vuns73 

vuns74 

vuns75 

vuns76 

vuns77 

vuns78 

vuns79 


text 


text 


text 


text 


text 


text 


text 


text 


vuwdate 

date 

vuwtime 

time 

walue 

dollar 

wiol54 

text 

wiol55 


text 


Used  In 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

add_b"rd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

add_Srd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per .prg 

quer  vsl.prg 

add_b~rd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

add.Srd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per .prg 

quer  vsl.prg 

add_Srd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per  .prg 

quer  vsl.prg 

add_Erd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per .prg 

quer_vsl.prg 

add_sar .prg 

add_sbd.prg 

add_sut.prg 

mod_sut .prg 

add_sar.prg 

add_sbd.prg 

add_sut .prg 

mod_sut .prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per .prg 

quer  vsl.prg 

add_b"rd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per .prg 

quer_vsl.prg 


Description 
unsafe  condition  72 


unsafe  condition  73 


unsafe  condition  74 


unsafe  condition  75 


unsafe  condition  76 


unsafe  condition  77 


unsafe  condition  78 


unsafe  condition  79 


underway  date 


underway  time 


vessel  value 


violation  code  54 


violation  code  55 
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Name 
wiol56 

wiol57 

wiol58 
wiol59 
wiol60 
wiol61 
wiol62 
wiol63 
wiol64 
wiol65 
wiol66 
wiol67 
wiol68 


_Typr 

text 


text 


text 


text 


text 


text 


text 


text 


text 


text 


text 


text 


text 


Used  In 

add_brd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per .prg 

quer  vsl.prg 

add_Erd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

addjbrd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per .prg 

quer  vsl.prg 

add_Erd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per .prg 

quer  vsl.prg 

add_Erd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

addJSrd.prg 

add~sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sbd.prg 

mod^brd.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sbd.prg 

mod_brd.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add  sbd.prg 

mod^brd.prg 

quer_per.prg 

quer_vsl.prg 


Description 
violation  code  56 


violation  code  57 


violation  code  58 


violation  code  59 


violation  code  60 


violation  code  61 


violation  code  62 


violation  code  63 


violation  code  64 


violation  code  65 


violation  code  66 


violation  code  67 


violation  code  68 
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Name 

Type 

wisdist 

integer 

wreml 

text 

wrem2 

text 

wrem3 

text 

wsleng 

text 

wslft 


wslfuel 


wslhin 


integer 


text 


text 


wslhp 


wslhull 


wslin 


wslmake 


text 


text 


integer 


text 


wslmod 


wslname 


text 


text 


wslno 


text 


Used  In 

add_sar.prg 

add_sbd.prg 

mod_sar .prg 

quer_per.prg 

quer_vsl.prg 

quer_per.prg 

quer_vsl.prg 

quer_per.prg 

quer  vsl.prg 

add_Erd.prg 

add_sar .prg 

add_sbd.prg 

mod_vhin.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

mod_vhin*.prg 

add^Ibrd.prg 

add_sar.prg 

add_sbd.prg 

mod_vhin.prg 

add_brd.prg 

add_ownr*.prg 

add_sar.p'rg 

add_sbd.prg 

mod_brd.prg 

mod_vhin.prg 

quer_per .prg 

quer  vsl.prg 

addjord.prg 

add_sar.prg 

add_sbd.prg 

mod_vhin.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

mod  vhin.prg 

addlbrd.prg 

add_sar.prg 

add_sbd.prg 

mod_vhin.prg 

add_brd.prg 

add_sar.prg 

add_sbd.prg 

mod_vhin.prg 

quer_per .prg 

quer  vsl.prg 

addprd.prg 

add_sar.prg 

add_sbd.prg 

mod_vhin.prg 

add_brd.prg 

add_sar .prg 

add_sbd.prg 

am  vint.prg 

mod"_vhin".  prg 

quer_per .prg 

quer  vsl.prg 

addjord.prg 

add_sar .prg 

add_sbd.prg 

mod_vhin.prg 

quer_per .prg 

quer_vsl.prg 


Description 
visdist  in  sar 

vessel  intelligence  remar 
vessel  intelligence  remar 
vessel  intelligence  remar 
coded  vessel  engine  compa 

vessel  length  (feet) 

coded  fuel  compartment 

vslhin  in  vessel 


vessel  horsepower 


coded  vessel  hull  materia 


vessel  length  (inches) 


vessel  make 


vslmodel  in  vessel 


vessel  name 


vessel  number 
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Name 

Type 
integer 

Used  In 

Description 

wslpob 

add_brd.prg 

personnel  on  board 

add  sbd.prg 

modlbrd.prg 

quer_per.prg 

quer  vsl.prg 

wslprop 

text 

add_5rd.prg 
add_sar.prg 
add_sbd.prg 
mod_vhin.prg 

coded  vessel  propulsion 

wslton 

integer 

add_brd.prg 
add_sar .prg 
add_sbd.prg 
mod_vhin.prg 

vsltons  in  vessel 

wsltype 

text 

add_sar .prg 
add_sbd.prg 
add_brd.prg 
mod_vhin.prg 

coded  vessel  type 

wsluse 

text 

add_brd.prg 
add_sar .prg 
add_sbd.prg 
mod_vhin.prg 

coded  vessel  use 

wslyear 

text 

add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_vhin.prg 

vessel  year 

weapons 

integer 

add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per .prg 
quer_vsl.prg 

weapons  in  boarding 

vwinddir 

text 

add_sar.prg 
add_sbd.prg 
mod_sar.prg 

winddir  in  sar 

vwindspd 

text 

add~sar.prg 
add_sbd.prg 
mod  sar.prg 

windspd  in  sar 

wedsday 
westtst 

integer 

sarclay  .prg 

counting  variable 
nautical  position  coord. 

real 

bomajor.prg 

bominor.prg 

sarmajor.prg 

sarminor.prg 

year 

integer 

sarday.prg 

saryear 

yrl981 

date 

sarday.prg 

starting  date 

yrl981a 

date 

sarday.prg 

ending  date 

yrl982 

date 

sarday.prg 

starting  date 

yrl982a 

date 

sarday.prg 

ending  date 

yrl983 

date 

sarday.prg 

starting  date 

yrl983a 

date 

sarday.prg 

ending  date 

yrl984 

date 

sarday.prg 

starting  date 

yrl984a 

date 

sarday.prg 

ending  date 

yrl985 

date 

sarday.prg 

starting  date 

yrl985a 

date 

sarday.prg 

ending  date 

yrl986 

date 

sarday.prg 

starting  date 

yrl986a 

date 

sarday.prg 

ending  date 

yrl987 

date 

sarday.prg 

starting  date 

yrl987a 

date 

sarday.prg 

ending  date 

yrl988 

date 

sarday.prg 

starting  date 

yrl988a 

date 

sarday.prg 

ending  date 

yrl989 

date 

sarday.prg 

starting  date 
ending  date 

yrl989a 

date 

sarday.prg 

yrl990 

date 

sarday.prg 

starting  date 

yrl990a 

date 

sarday.prg 

ending  date 

yrl991 

date 

sarday.prg 

starting  date 

yrl991a 

date 

sarday.prg 

ending  date 

yrl992 

date 

sarday.prg 

starting  date 
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Name 

yrl992a 

yrl993 

yrl993a 

yrl994 

yrl994a 

yrl995 

yrl995a 

yrl996 

yrl996a 

yrl997 

yrl997a 

yrl998 

yrl998a 

yrl999 

yrl999a 

yr2000 

yr2000a 

yr2001 

yr2001a 

yr2002 

yr2002a 

yr2003 

yr2003a 

yr2004 

yr2004a 

yr2005 

yr2005a 

yr2006 

yr2006a 

yr2007 

yr2007a 

yr2008 

yr2008a 

yr2009 

yr2009a 

yr2010 

yr2010a 

yr2011 

yr2011a 

yr2012 

yr2012a 

yr71to75 

yr76to79 

yr80to81 

yr82to83 

yr84to85 

yr86to87 

yr88to89 

yr<1960 

yr<1965 

yr<1970 

yr<1975 

yr<1980 

yr<1985 

yr<1990 

yr<1995 

yr<2000 

yr>2000 

yrtestl 

yrtest2 


Type 

Used  In 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date  • 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg- 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 

date 

sarday.prg 
cmerpt.prg 

integer 

integer 

cmerpt.prg 

integer 

cmerpt.prg 

integer 

cmerpt.prg 

integer 

cmerpt.brg 

integer 

cmerpt.prg 

integer 

cmerpt.prg 
intelrpt.prg 

integer 

integer 

intelrpt.prg 

integer 

intelrpt. prg 

integer 

intelrpt.prg 

integer 

intelrpt.prg 

integer 

intelrpt.prg 

integer 

intelrpt.prg 

integer 

intelrpt.prg 

integer 

intelrpt.prg 

integer 

intelrpt.prg 

integer 

sarday.prg 

integer 

sarday.prg 

Description 


ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
leap  year  test 
leap  year  test 
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Program  Variables  Sorted  by  Where  Used 


Used  In 
add_brd.prg 


Name 


Type 


Description 


bl 

date 

b2 

time 

b3 

real 

b4 

real 

backup 

text 

choice 

text 

cont 

text 

difbo 

text 

fixopr 

text 

fixown 

text 

loadmenu 

text 

more 

text 

mropers 

text 

mrownrs 

text 

opl 

text 

oplO 

text 

opll 

integer 

op2 

text 

op3 

text 

op4 

text 

op  5 

text  ■ 

op6 

text 

op7 

text 

op  8 

text 

op  9 

date 

owl 

text 

owlO 

text 

ow2 

text 

ow3 

text 

ow4 

text 

ow5 

text 

ow6 

text 

ow7 

text 

ow8 

text 

ow9 

date 

pg 

integer 

pgcount 

integer 

review 

text 

vl 

text 

vlO 

text 

vll 

text 

vl2 

text 

vl3 

text 

vl4 

text 

vl5 

text 

vl6 

text 

vl7 

text 

vl8 

text 

vl9 

text 

v2 

text 

v20 

text 

v21 

text 

v22 

text 

v23 

text 

v24 

text 

v25 

text 

v26 

text 

v27 

text 

v28 

text 

v29 

text 

v3 

text 

v30 

text 

v31 

text 

v32 

text 

v4 

text 

bodate  in  boarding 
botime  in  boarding 
obslat  in  boarding 
bolong  in  boarding 
flag  variable 
user  input  variable 
user  input 
flag  variable 
flag  variable 
flag  variable 
flag  variable 
flag  variable 
user  input 
user  input 
oplname  in  operator 
opcourse  in  operator 
opid  in  operator 
opfname  in  operator 
opmi  in  operator 
opaddr  in  operator 
opcity  in  operator 
opstate  in  operator 
opzip  in  operator 
optelno  in  operator 
opdob  in  operator 
ownlname  in  owners 
ownid  in  owners 
ownfname  in  owners 
ownmi  in  owners 
ownaddr  in  owners 
owncity  in  owners 
ownstate  in  owners 
ownzip  in  owners 
owntelno  in  owners 
owndob  in  owners 
counting  variable 
counting  variable 
flag  variable 
vslno  in  vessel 
vslhp  in  vessel 
vsluse  in  vessel 
vsltype  in  vessel 
vslprop  in  vessel 
vslhull  in  vessel 
vsleng  in  vessel 
vslfuel  in  vessel 
vslconst  in  vessel 
cmedecal  in  vessel 
cmeyuear  in  vessel 
vslname  in  vessel 
vsloffno  in  vessel 
homeport  in  vessel 
vslcall  in  vessel 
vslvalue  in  vessel 
vslsuper  in  vessel 
vslmasts  in  vessel 
sailno  in  vessel 
hlcolor  in  vessel 
trcolor  in  vessel 
slcolor  in  vessel 
vslhin  in  vessel 
cbcolor  in  vessel 
dkcolor  in  vessel 
vslmarks  in  vessel 
vslmake  in  vessel 
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Used  In 

Name 
v5 

Type 

add_brd.prg 

text 

v6 

text 

v7 

integer 

v8 

integer 

v9 

integer 

vadult 

integer 

vbodate 

date 

vboday 

text 

vbodist 

text 

vboname 

text 

vbono 

text 

vboopfac 

text 

vborate 

text 

vboreml 

text 

vborem2 

text 

vborem3 

text 

vbosrise 

time 

vbosset 

time 

vbotime 

time 

vbounit 

text 

vcall 

text 

vcbcolor 

text 

vchild 

integer 

vcmeyear 

text 

vconstr 

text 

vdecal 

text 

vdkcolor 

text 

vhlcolor 

text 

vhome 

text 

vmarks 

text 

vmasts 

text 

vmaxop 

integer 

vmaxown 

integer 

vobcount 

text 

vobsbody 

text 

vobscity 

text 

vobslat 

real 

vobslong 

real 

vobstate 

text 

voffno 

text 

vopaddr 

text 

vopcity 

text 

vopcrse 

text 

vopdob 

date 

vopfname 

text 

vopid 

integer 

voplname 

text 

vopmi 

text 

vopst 

text 

voptelno 

text 

vopzip 
vostatus 

text 

text 

vowaddr 

text 

vowcity 

text 

vowdob 

date 

vowfname 

text 

vowlname 

text 

vowmi 

text 

vownid 

text 

Description 


vslmodel  in  vessel 
vslyear  in  vessel 
vsltons  in  vessel 
vsllenft  in  vessel 
vsllenin  in  vessel 
adultpfd  in  boarding 
boarding  date 
boday  in  boarding 
bodist  in  boarding 
boname  in  boarding 
boarding  report  number 
boopfac  in  boarding 
borate  in  boarding 
boreml  in  boarding 
borem2  in  boarding 
borem3  in  boarding 
bsunrise  in  boarding 
bsunset  in  boarding 
boarding  time 
bounit  in  boarding 
vessel  call  sign 
cabin  color 
childpfd  in  baording 
erne  decal  year 
coded  vessel  construction 
erne  decal? 
deck  color 
hull  color 
vessel  homeport 
vessel  unusual  markings 
number  of  vessel  masts 
comparison  variable 
comparison  variable 
obscount  in  boarding 
obsbody  in  boarding 
obscity  in  boarding 
latitude  position 
longitude  position 
obsstate  in  boarding 
vessel  official  numbers 
operator  street  address 
operator  city  address 
operator  course  code 
operator  date  of  birth 
operator  first  name 
operator  id  (system) 
operator  last  name 
operator  middle  initial 
operator  state  address 
operator  telephone  number 
operator  zip  code 
owstatus  in  boarding 
owner  street  address 
owner  city  address 
owner  date  of  birth 
owner  first  name 
owner  last  name 
owner  middle  initial 
owner  id  (system) 
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Used  In 
add_brd.prg 


Name 


Type 


Description 


add_ownr.prg 


vownid 

vowst 

vowtelno 

vowzip 

vsailno 

vslcolor 

vsuper 

vtrcolor 

vuns69 

vuns70 

vuns71 

vuns72 

vuns73 

vuns74 

vuns75 

vuns76 

vuns77 

vuns78 

vuns79 

vvalue 

wiol54 

wiol55 

wiol56 

wiol57 

wiol58 

wiol59 

wiol60 

wiol61 

wiol62 

wiol63 

wiol64 

wiol65 

wiol66 

wiol67 

wiol68 

wsleng 

wslft 

wslfuel 

wslhin 

wslhp 

wslhull 

wslin 

wslmake 

wslmod 

wslname 

wslno 

vvslpob 

vvslproo 

wslton* 

wsltype 

wsluse 

wslyear 

weapons 

done 

loadok 

more 

mrownrs 

out 

reenter 

vowaddr 

vowcity 

vowdob 

vowfname 

vowlname 

vowmi 


integer 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

dollar 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

text 

text 

text 

text 

integer 

text 

text 

text 

text 

integer 

text 

integer 

text 

text 

text 

integer 

text 

text 

text 

text 

text 

text 

text 

text 

date 

text 

text 

text 


owner  id  (system) 
owner  state  address 
owner  telephone  number 
owner  zip  code 
sail  number 
sail  color 

vessel  superstructure 
trim  color 
unsafe  condition  69 
unsafe  condition  70 
unsafe  condition  71 
unsafe  condition  72 
unsafe  condition  73 
unsafe  condition  74 
unsafe  condition  75 
unsafe  condition  76 
unsafe  condition  77 
unsafe  condition  73 
unsafe  condition  79 
vessel  value 
violation  code  54 
violation  code  55 
violation  code  56 
violation  code  57 
violation  code  58 
violation  code  59 
violation  code  60 
violation  code  61 
violation  code  62 
violation  code  63 
violation  code  64 
violation  code  65 
violation  code  66 
violation  code  67 
violation  code  68 
coded  vessel  engine  compa 
vessel  length  (feet) 
coded  fuel  compartment 
vslhin  in  vessel 
vessel  horsepower 
coded  vessel  hull  materia 
vessel  length  (inches) 
vessel  make 
vslmodel  in  vessel 
vessel  name 
vessel  number 
personnel  on  board 
coded  vessel  propulsion 
vsltons  in  vessel 
coded  vessel  type 
coded  vessel  use 
vessel  year 
weapons  in  boarding 
flag  variable 
flag  variable 
flag  variable 
user  input 
flag  variable 
user  input 
owner  street  address 
owner  city  address 
owner  date  of  birth 
owner  first  name 
owner  last  name 
owner  middle  initial 
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Used  In 
add_ownr.prg 

add_sar.prg 


Name 


Type 


Description 


vownid 

integer 

vowst 

text 

vowtelno 

text 

vowzip 

text 

wslhin 

text 

addlownr 

text 

backup 

text 

choice 

text 

cont 

text 

difsar 

text 

fixopr 

text 

fixown 

text 

loadmenu 

text 

more 

text 

mrownrs 

text 

mrunits 

text 

opl 

text 

oplO 

text 

opll 

integer 

op  2 

text 

op3 

text 

op4 

text 

op  5 

text 

op6 

text 

op7 

text 

op8 

text 

op9 

date 

owl 

text 

owlO 

text 

ow2 

text 

ow3 

text 

ow4 

text 

ow5 

text 

ow6 

text 

ow7 

text 

ow8 

text 

ow9 

date 

pg 

integer 

pgcount 

integer 

review 

text 

si 

date 

s2 

time 

s3 

real 

s4 

real 

s5 

text 

s6 

text 

sunits 

text 

vl 

text 

vlO 

text 

vll 

text 

vl2 

text 

vl3 

text 

vl4 

text 

vlS 

text 

vl6 

text 

vl7 

text 

vl8 

text 

vl9 

text 

v2 

text 

v20 

text 

v21 

text 

v22 

text 

v23 

text 

v24 

text 

v25 

text 

owner  id  (system) 
owner  state  address 
owner  telephone  number 
owner  zip  code 
vslhin  in  vessel 
user  input 
flag  variable 
user  input  variable 
user  input 
flag  variable 
flag  variable 
flag  variable 
flag  variable 
flag  variable 
user  input 
user  input 
oplname  in  operator 
opcourse  in  operator 
opid  in  operator 
opfname  in  operator 
opmi  in  operator 
opaddr  in  operator 
opcity  in  operator 
opstate  in  operator 
opzip  in  operator 
optelno  in  operator 
opdob  in  operator 
ownlname  in  owners 
ownid  in  owners 
ownfname  in  owners 
ownmi  in  owners 
ownaddr  in  owners 
owncity  in  owners 
ownstate  in  owners 
ownzip  in  owners 
owntelno  in  owners 
owndob  in  owners 
counting  variable 
counting  variable 
flag  variable 
sardate  in  sar 
sartime  in  sar 
sarlat  in  sar 
sarlong  in  sar 
sarnod  in  sar 
sarvhin  in  sar 
user  input 
vslno  in  vessel 
vslhp  in  vessel 
vsluse  in  vessel 
vsltype  in  vessel 
vslprop  in  vessel 
vslnull  in  vessel 
vsleng  in  vessel 
vslfuel  in  vessel 
vslconst  in  vessel 
cmedecal  in  vessel 
cmeyuear  in  vessel 
vslname  in  vessel 
vsloffno  in  vessel 
homeport  in  vessel 
vslcall  in  vessel 
vslvalue  in  vessel 
vslsuper  in  vessel 
vslmasts  in  vessel 
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Used  In 
add_sar.prg 


Name 


Type 


Description 


v26 

text 

v27 

text 

v28 

text 

v29 

text 

v3 

text 

v30 

text 

v31 

text 

v32 

text 

v4 

text 

v5 

text 

v6 

text 

v7 

integer 

v8 

integer 

v9 

integer 

valgdate 

date 

valgtime 
vcall 

time 

text 

vcbcolor 

text 

vceiling 

text 

vclouds 

text 

vcmeyear 

text 

vconstr 

text 

vdateos 

date 

vdecal 

text 

vdistoff 

integer 

vdkcolor 

text 

vdvmoord 

date 

vdvmoort 

time 

vetadate 

date 

vfoldno 

text 

vhlcolor 

text 

vhome 

text 

vimmed 

text 

vmarks 

text 

vmasts 

text 

vmaxop 

integer 

vmaxown 

integer 

vmucn 

text 

voffno 

text 

vopaddr 

text 

vopcity 

text 

vopcrse 

text 

vopdob 

date 

vopfname 

text 

vopid 

integer 

voplname 

text 

vopmi 

text 

vopst 

text 

voptelno 

text 

vopzip 

text 

voseta 

time 

vostime 

time 

vowaddr 

text 

vowcity 

text 

vowdob 

date 

vowfname 

text 

vowlname 

text 

vowmi 

text 

vownid 

text 

vowst 

text 

vowtelno 

text 

vowzip 

text 

vsailno 

text 

vsardate 

date 

vsarday 

text 

sailno  in  vessel 
hlcolor  in  vessel 
trcolor  in  vessel 
slcolor  in  vessel 
vslhin  in  vessel 
cbcolor  in  vessel 
dkcolor  in  vessel 
vslmarks  in  vessel 
vslmake  in  vessel 
vslmodel  in  vessel 
vslyear  in  vessel 
vsltons  in  vessel 
vsllenft  in  vessel 
vsllenin  in  vessel 
date  alongside 
time  alongside 
vessel  call  sign 
cabin  color 
ceiling  in  sar 
clouds  in  sar 
erne  decal  year 
coded  vessel  construction 
on  scene  date 
erne  decal? 
distance  offshore 
deck  color 

date  distressed  vessel  mo 
time  distressed  vessel  mo 
on  scene  eta  date 
sar  folder  number 
hull  color 
vessel  homeport 
immediate  sar? 
vessel  unusual  markings 
number  of  vessel  masts 
comparison  variable 
comparison  variable 
multi-unit  case  number 
vessel  official  numbers 
operator  street  address 
operator  city  address 
operator  course  code 
operator  date  of  birth 
operator  first  name 
operator  id  (system) 
operator  last  name 
operator  middle  initial 
operator  state  address 
operator  telephone  number 
operator  zip  code 
on  scene  eta  time 
on  scene  time 
owner  street  address 
owner  city  address 
owner  date  of  birth 
owner  first  name 
owner  last  name 
owner  middle  initial 
owner  id  (system) 
owner  state  address 
owner  telephone  number 
owner  zip  code 
sail  number 
sar  date 
sar  day  of  the  week 
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Used  In 
add_sar.prg 


Name 


Type 


Description 


add_sbd.prg 


vsarlat 

vsarlong 

vsarnod 

vsarpob 

vsartime 

vseas 

vslcolor 

wsltype 

vsumoord 

vsumoort 

vsunrise 

vsunset 

vsuper 

vswells 

vtowdate 

vtowtime 

vtrcolor 

vucn 

vunit 

vuwdate 

yuwtime 

walue 

wisdist 

vvsleng 

wslft 

vvslfuel 

wslhin 

ws  lhp 

wslhull 

wslin 

wslmake 

wslmod 

wslname 

wslno 

wslprop 

wslton 

wsluse 

wslyear 

vwinddir 

vwindspd 

addl_opr 

addl  own 

bl 

b2 

b3 

b4 

backup 

choice 

cont 

difbo 

difsar 

fixopr 

fixown 

loadmenu 

more 

mropers 

mrownrs 

mrunits 

opl 

oplO 

opll 

op2 

op3 

op4 

op  5 


real 

real 

text 

integer 

time 

text 

text 

text 

date 

time 

time 

time 

text 

text 

date 

time 

text 

text 

text 

date 

time 

dollar 

integer 

text 

integer 

text 

text 

text 

text 

integer 

text 

text 

text 

text 

text 

integer 

text 

text 

text 

text 

text 

text 

date 

time 

real 

real 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

text 

text 

text 

text 


latitude  position 

longitude  position 

nature  of  distress 

personnel  on  board 

sar  time 

seas  in  sar 

sail  color 

coded  vessel  type 

date  sar  unit  moored 

time  sar  unit  moored 

bsunrise  in  boarding 

bsunset  in  boarding 

vessel  superstructure 

swells  in  sar 

date  started  towing 

time  started  towing 

trim  color 

unit  case  number 

sar  unit  name 

underway  date 

underway  time 

vessel  value 

visdist  in  sar 

coded  vessel  engine  compa 

vessel  length  (feet) 

coded  fuel  compartment 

vslhin  in  vessel 

vessel  horsepower 

coded  vessel*  hull  materia 

vessel  length  (inches) 

vessel  make 

vslmodel  in  vessel 

vessel  name 

vessel  number 

coded  vessel  propulsion 

vsltons  in  vessel 

coded  vessel  use 

vessel  year 

winddir  in  sar 

windspd  in  sar 

user  input 

user  input 

bodate  in  boarding 

botime  in  boarding 

obslat  in  boarding 

bolong  in  boarding 

flag  variable 

user  input  variable 

user  input 

flag  variable 

flag  variable 

flag  variable 

flag  variable 

flag  variable 

flag  variable 

user  input 

user  input 

user  input 

oplname  in  operator 

opcourse  in  operator 

opid  in  operator 

opfname  in  operator 

opmi  in  operator 

opaddr  in  operator 

opcity  in  operator 
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Used  In 

Name 
op  6 

Type 

add_sbd.prg 

text 

op  7 

text 

op8 

text 

op  9 

date 

owl 

text 

owlO 

text 

ow2 

text 

ow3 

text 

ow4 

text 

ow5 

text 

ow6 

text 

ow7 

text 

ow8 

text 

ow9 

date 

pg 

integer 

pgcount 

integer 

review 

text 

si 

date 

s2 

time 

s3 

real 

s4 

real 

• 

s5 

text 

s6 

text 

sunits 

text 

vl 

text 

vlO 

text 

vll 

text 

vl2 

text 

vl3 

text 

vl4 

text 

vl5 

text 

vl6 

text 

vl7 

text 

vl8 

text 

vl9 

text 

v2 

text 

v20 

text 

v21 

text 

v22 

text 

v23 

text 

v24 

text 

v25 

text 

v26 

text 

v27 

text 

v28 

text 

v29 

text.  . 

v3 

text 

v30' 

text 

v31 

text 

v32 

text 

v4 

text 

v5 

text 

v6 

text 

v7 

integer 

v8 

integer 

v9 

integer 

vadult 

integer 

valgdate 

date 

valgtime 

time 

vbodate 

date 

vboday 

text 

vbodist 

text 

vboname 

text 

vbono 

text 

vboopfac 

text 

Description 


opstate  in  operator 
opzip  in  operator 
optelno  in  operator 
opdob  in  operator 
ownlname  in  owners 
ownid  in  owners 
ownfname  in  owners 
ownmi  in  owners 
ownaddr  in  owners 
owncity  in  owners 
ownstate  in  owners 
ownzip  in  owners 
owntelno  in  owners 
owndob  in  owners 
counting  variable 
counting  variable 
flag  variable 
sardate  in  sar 
sartime  in  sar 
sarlat  in  sar 
sarlong  in  sar 
sarnod  in  sar 
sarvhin  in  sar 
user  input 
vslno  in  vessel 
vslhp  in  vessel 
vsluse  in  vessel 
vsltype  in  vessel 
vslprop  in  vessel 
vslnull  in  vessel 
vsleng  in  vessel 
vslfuel  in  vessel 
vslconst  in  vessel 
cmedecal  in  vessel 
cmeyuear  in  vessel 
vslname  in  vessel 
vsloffno  in  vessel 
homeport  in  vessel 
vslcall  in  vessel 
vslvalue  in  vessel 
vslsuper  in  vessel 
vslmasts  in  vessel 
sailno  in  vessel 
hlcolor  in  vessel 
trcolor  in  vessel 
slcolor  in  vessel 
vslhin  in  vessel 
cbcolor  in  vessel 
dkcolor  in  vessel 
vslmarks  in  vessel 
vslmake  in  vessel 
vslmodel  in  vessel 
vslyear  in  vessel 
vsltons  in  vessel 
vsllenft  in  vessel 
vsllenin  in  vessel 
adultpfd  in  boarding 
date  alongside 
time  alongside 
boarding  date 
boday  in  boarding 
bodist  in  boarding 
boname  in  boarding 
boarding  report  number 
boopfac  in  boarding 
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Used  In 

Name 
vborate 

Type 

add_sbd.prg 

text 

vboreml 

text 

vborem2 

text 

vborem3 

text 

vbosrise 

time 

vbosset 

time 

vbotime 

time 

vbounit 

text 

vcall 

text 

vcbcolor 

text 

vceiling 

text 

vchild 

integer 

vclouds 

text 

vcmeyear 

text 

vconstr 

text 

vdateos 

date 

vdecal 

text 

vdistoff 

integer 

vdkcolor 

text 

vdvmoord 

date 

vdvmoort 

time 

vetadate 

date 

vfoldno 

text 

vhlcolor 

text 

vhome 

text 

vimmed 

text 

vmarks 

text 

vmasts 

text 

vmaxop 

integer 

vmaxoper 

integer 

vmaxown 

integer 

vmucn 

text 

vobcount 

text 

• 

vobsbody 

text 

vobscity 

text 

vobslat 

real 

vobslong 

real 

vobstate 

text 

voffno 

text 

vopaddr 

text 

vopcity 

text 

vopcrse 

text 

vopdob 

date 

vopfname 

text 

vopid 

integer 

voplname 

text 

vopmi 

text 

vopst 

text 

voptelno 

text 

vopzip 

text 

voseta 

time 

vostatus 

text 

vostime 

time 

vowaddr 

text 

vowcity 

text 

vowdob 

date 

vowfname 

text 

vowlname 

text 

vowmi 

text 

vownid 

text 

vownid 

integer 

vowst 

text 

vowtelno 

text 

vowzip 

text 

vsailno 

text 

Description 


borate  in  boarding 
boreml  in  boarding 
borem2  in  boarding 
borem3  in  boarding 
bsunrise  in  boarding 
bsunset  in  boarding 
boarding  time 
bounit  in  boarding 
vessel  call  sign 
cabin  color 
ceiling  in  sar 
childpfd  in  baording 
clouds  in  sar 
erne  decal  year 
coded  vessel  construction 
on  scene  date 
erne  decal? 
distance  offshore 
deck  color 

date  distressed  vessel  mo 
time  distressed  vessel  mo 
on  scene  eta  date 
sar  folder  number 
hull  color 
vessel  homeport 
immediate  sar? 
vessel  unusual  markings 
number  of  vessel  masts 
comparison  variable 
comparison  variable 
comparison  variable 
multi-unit  case  number 
obscount  in  boarding 
obsbody  in  boarding 
obscity  in  boarding 
latitude  position 
longitude  position 
obsstate  in  boarding 
vessel  official  numbers 
operator  street  address 
operator  city  address 
operator  course  code 
operator  date  of  birth 
operator  first  name 
operator  id  (system) 
operator  last  name 
operator  middle  initial 
operator  state  address 
operator  telephone  number 
operator  zip  code 
on  scene  eta  time 
owstatus  in  boarding 
on  scene  time 
owner  street  address 
owner  city  address 
owner  date  of  birth 
owner  first  name 
owner  last  name 
owner  middle  initial 
owner  id  (system) 
owner  id  (system) 
owner  state  address 
owner  telephone  number 
owner  zip  code 
sail  number 
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Used  In 
add_sbd.prg 


Name 


Type 


Description 


vsardate 

vsarday 

vsarlat 

vsarlong 

vsarnod 

vsarpob 

vsartime 

vseas 

vslcolor 

wsltype 

vsumoord 

vsumoort 

vsunrise 

vsunset 

vsuper 

vswells 

vtowdate 

vtowtime 

vtrcolor 

vucn 

vunit 

vuns69 

vuns70 

vuns71 

vuns72 

vuns73 

vuns74 

vuns75 

vuns76 

vuns77 

vuns78 

vuns79 

vuwdate 

vuwtime 

walue 

wiol54 

wiol55 

wiol56 

wiol57 

wiol58 

wiol59 

wiol60 

wiol61 

wiol62 

wiol63 

wiol64 

wiol65 

wiol66 

wiol67 

wio!68 

wisdist 

wsleng 

wslft 

wslfuel 

wslhin 

wslhp 

wslhull 

wslin 

wslmake 

wslmod 

wslname 

wslno 

wslpob 

wslprop 

wslton 


date 

text 

real 

real 

text 

integer 

time 

text 

text 

text 

date 

time 

time 

time 

text 

text 

date 

time 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

date 

time 

dollar 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

text 

integer 

text 

text 

text 

text 

integer 

text 

text 

text 

text 

integer 

text 

integer 


sar  date 

sar  day  of  the  week 
latitude  position 
longitude  position 
nature  of  distress 
personnel  on  board 
sar  time 
seas  in  sar 
sail  color 
coded  vessel  type 
date  sar  unit  moored 
time  sar  unit  moored 
bsunrise  in  boarding 
bsunset  in  boarding 
vessel  superstructure 
swells  in  sar 
date  started  towing 
time  started  towing 
trim  color 
unit  case  number 
sar  unit  name 
unsafe  condition  69 
unsafe  condition  70 
unsafe  condition  71 
unsafe  condition  72 
unsafe  condition  73 
unsafe  condition  74 
unsafe  condition  75 
unsafe  condition  76 
unsafe  condition  77 
unsafe  condition  78 
unsafe  condition  79 
underway  date 
underway  time 
vessel  value 
violation  code  54 
violation  code  55 
violation  code  56 
violation  code  57 
violation  code  58 
violation  code  59 
violation  code  60 
violation  code  61 
violation  code  62 
violation  code  63 
violation  code  64 
violation  code  65 
violation  code  66 
violation  code  67 
violation  code  68 
visdist  in  sar 
coded  vessel  engine  compa 
vessel  length  (feet) 
coded  fuel  compartment 
vslhin  in  vessel 
vessel  horsepower 
coded  vessel  hull  materia 
vessel  length  (inches) 
vessel  make 
vslmodel  in  vessel 
vessel  name 
vessel  number 
personnel  on  board 
coded  vessel  propulsion 
vsltons  in  vessel 
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Used  In 

Name 
wsluse 

Type 

add_sbd.prg 

text 

wslyear 

text 

weapons 

integer 

vwinddir 

text 

vwindspd 

text 

add_sut.prg 

done 

text 

mrunits 

text 

valgdate 

date 

valqtime 
vdateos 

time 

date 

vdvmoord 

date 

vdvmoort 

time 

vetadate 

date 

vfoldno 

text 

voseta 

time 

vostime 

time 

vsumoord 

date 

vsumoort 

time 

vtowdate 

date 

vtowtime 

time 

vunit 

text 

vuwdate 

date 

vuwtime 

time 

am_pint.prg 

choice 

text 

correct 

text 

more 

text 

mrintel 

text 

reenter 

text 

vfname 

text 

vintdate 

date 

vintdate 

date 

vintdob 

date 

vintmi 

text 

vintreml 

text 

vintrem2 

text 

vintrem3 

text 

- 

vlname 

text 

am_vint.prg 

choice 

text 

correct 

text 

fixvsl 

text 

more 

text 

mrintel 

text 

reenter 

text 

vepic 

text 

vintdate 

date 

vintreml 

text 

vintrem2 

text 

vintrem3 

text 

vstolen 

text 

wslname 

text 

boarding. prg 

datediff 

integer 

enddate 

date 

numrows 

integer 

strtdate 

date 

bomajor.prg 

datdiff 

integer 

easttst 

real 

enddate 

date 

inarea 

integer 

inpct 

real 

northtst 

real 

outarea 

integer 

outpct 
southtst 

real 

real 

strtdate 

date 

temppct 
westtst 

real 

real 

Description 


coded  vessel  use 

vessel  year 

weapons  in  boarding 

winddir  in  sar 

windspd  in  sar 

flag  variable 

user  input 

date  alongside 

time  alongside 

on  scene  date 

date  distressed  vessel  mo 

•time  distressed  vessel  mo 

on  scene  eta  date 

sar  folder  number 

on  scene  eta  time 

on  scene  time 

date  sar  unit  moored 

time  sar  unit  moored 

date  started  towing 

time  started  towing 

sar  unit  name 

underway  date  . 

underway  time 

user  input 

user  input 

flag  variable 

user  input 

user  input 

intfname  in  perintel 

pintdate  in  perintel 

mtdate  in  vslintel 

intdob  in  perintel 

intmi  in  perintel 

pintreml  in  perintel 

pintrem2  in  perintel 

pintrem3  in  perintel 

intlname  in  perintel 

user  input 

user  input 

user  input 

flag  variable 

user  input 

user  input 

epiccode  in  vslintel 

intdate  in  vslintel 

vremarkl  in  vslintel 

vremark2  in  vslintel 

vremark3  in  vslintel 

stolen  in  vslintel 

vessel  name 

date  difference 

ending  date 

counting  variable 

starting  date 

date  difference 

nautical  position  coord. 

ending  date 

summation  variable 

percentage 

nautical  position  coord. 

summation  variable 

percentage 

nautical  position  coord. 

starting  date 

percentage 

nautical  position  coord. 
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Used  In 
bominor.prg 


Name 


Type 


Description 


brd_main.prg 
cmerpt.prg 


daynight.prg 


datadiff 

datediff 

easttst 

enddate 

inarea 

inpct 

northtst 

outarea 

outpct 

southtst 

strtdate 

temppct 

westtst 

pcik6 

after90 

before70 

cmecount 

datediff 

enddate 

pct7175 

pct7679 

pct8081 

pct8283 

pct8485 

pct8687 

pct8339 

pctcme 

pctgt90 

pctlt70 

strtdate 

totbrds 

vpct70 

vpct71 

vpct76 

vpct80 

vpct82 

vpct84 

vpct86 

vpct88 

vpct90 

yr71to75 

yr76to79 

yr80to81 

yr82to83 

yr84to85 

yr86to87 

yr88to89 

datediff 

daybrd 

daysar 

enddate 

nitebrd 

nitesar 

pctdayb 

pctdays 

pctniteb 

pctnites 

strtdate 

totbrds 

totsars 


integer 

integer 

real 

date 

integer 

real 

real 

integer 

real 

real 

date 

real 

real 

integer 

integer 

integer 

integer 

integer 

date 

real 

real 

real 

real 

real  ' 

real 

real 

real 

real 

real 

date 

integer 

real 

real 

real 

real 

real 

real 

real 

real 

real 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

date 

integer 

integer 

real 

real 

real 

real 

date 

integer 

integer 

date  difference 

date  difference 

nautical  position  coord. 

ending  date 

counting  variable 

percentage 

nautical  position  coord. 

counting  variable 

percentage 

nautical  position  coord. 

starting  date 

percentage 

nautical  position  coord. 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

date  difference 

ending  date 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

starting  date 

counting  variable 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

date  difference 

counting  variable 

counting  variable 

ending  date 

counting  variable 

counting  variable 

percentage 

percentage 

percentage 

percentage 

starting  date 

total  boardings 

total  sars 
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Used  In 

epicdump.prg 


Name 


Type 


Description 


immedsar.prg 


mpmain.prg 

int_main.prg 

intelrpt.prg 


datediff 

edscl 

edsc2 

edsc3 

edsc4 

enddate 

epicnum 

epictest 

pcttempl 

pcttemp2 

strtdate 

totepics 

datediff 

enddate 

notimmed 

numrows 

pctimmed 

pctimmed 

pctnotim 

pctnotim 

strtdate 

totimmed 

totsars 

pick2 

pick5 

code 

constrds 

consttst 

datediff 

enddate 

engdescr 

engtst 

fdesc 

fueltst 

hdesc 

hulltst 

len2030 

len3040 

len4050 

len5060 

len6070 

len7080 

len8090 

len90100 

len<20 

len>100 

numrows 

pct2030 

pct3040 

pct4050 

pct5060 

pct6070 

pct7080 

pct8090 

pct9010 

pct90100 

pct<00 

pct<20 

pct<60 

pct<65 

pct<70 

pct<75 

pct<80 

pct<85 

pct<90 


integer 

text 

text 

text 

text 

date 

integer 

text 

real 

real 

date 

integer 

integer 

date 

integer 

integer 

real 

real 

real 

real 

date 

integer 

integer 

integer 

integer 

integer 

text 

text 

integer 

date 

text 

text 

text 

text 

text 

text 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 


date  difference 

=  epicdscl  in  VSLINTEL 

=  epicdsc2  in  VSLINTEL 

=  epicdsc3  in  VSLINTEL 

=  epicdsc4  in  VSLINTEL 

ending  date 

counting  variable 

=  epiccode  in  VSLINTEL 

%  epiccode  /  total  vsls 

%  epiccode  /  total  vsls 

starting  date 

counting  variable 

date  difference 

ending  date 

non-immediate  SAR  Cases 

counting  variable 

%  immediate  SAR  cases 

percentage 

%   non- immediate  SAR  Cases 

percentage 

starting  date 

counting  variable 

counting  variable 

menu  variable 

menu  variable 

input  variable 

=  consdesc  in  CONSTR 

=  constype  in  CONSTR 

date  difference 

ending  date 

=  ecomptyp  in  ENGCOMP 

=  ecomptype  in  ENGCOMP 

=  fcompdes  in  FUELCOMP 

=  fcomptyp  in  FUELCOMP 

=  hmatdesc  in  HULLMAT 

=  hmattype  in  HULLMAT 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 
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Used  In 

Name 
pct<95 

Type 

intelrpt.prg 

real 

pct>00 

real 

pct>100 

real 

prdesc 

text 

proptst 
strtdate 

text 

date 

sumconst 

integer 

sumeng 

integer 

sumfuel 

integer 

sumhull 

integer 

sumprop 
sumtype 

integer 

integer 

sumuse 

integer 

totbrds 

integer 

totviols 

integer 

totviols 

integer 

tvl 

integer 

tvlO 

integer 

tv2 

integer 

tv20 

integer 

tv3 

integer 

tv30 

integer 

tv4 

integer 

tv5 

integer 

typdescl 

text 

typetest 

text 

usedescl 

text 

usetest 

text 

vltndesc 

text 

vno 

text 

vpct2030 

real 

vpct3040 

real 

vpct4050 

real 

vpct5060 

real 

vpct6070 

real 

vpct7080 

real 

vpct8090 

real 

vpct9010 

real 

vpct<00 

real 

vpct<20 

real 

vpct<60 

real 

vpct<65 

real 

vpct<70 

real 

vpct<75 

real 

vpct<80 

real 

vpct<85 

real 

vpct<90 

real 

vpct<95 

real 

vpct>0Q 

real 

vpct>100 

real 

yr<1960 

integer 

yr<1965 

integer 

yr<1970 

integer 

yr<1975 

integer 

yr<1980 

integer 

yr<1985 

integer 

yr<1990 

integer 

yr<1995 

integer 

yr<2000 

integer 

yr>2000 

integer 

modmain.prg 

pick3 

integer 

Description 


percentage 
percentage 
percentage 

=  propdesc  in  BOATPROP 
=  proptype  in  BOATPROP 
starting  date 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
summation  variable 
counting  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
=  vtypedes  in  BOATTYPE 
=  vtype  in  BOATTYPE 
=  vusedesc  in  BOATUSE 
=  vuse  in  BOATUSE 
=  violdesc  in  VIOLS 
=  violno  in  VIOLS 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
menu  variable 
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Used  In 
mod_brd.prg 


Name 


Type 


Description 


bl 

date 

bl4 

text 

b24 

text 

b45 

text 

blO 

text 

bll 

text 

bl2 

real 

bl3 

real 

bl5 

text 

bl6 

text 

bl7 

text 

bl8 

text 

bl9 

text 

b2 

time 

b20 

text 

b21 

text 

b22 

text 

b23 

text 

b25 

text 

b26 

text 

b27 

text 

b28 

text 

b29 

text 

b30 

text 

b31 

text 

b32 

text 

b33 

text 

b34 

text 

b35 

text 

b36 

text 

b37 

text 

b38 

text 

b39 

text 

b40 

text 

b41 

text 

b42 

text 

b43 

text 

b44  ' 

text 

b46 

text 

b47 

text 

b48 

text 

b49 

time 

b5 

integer 

b50 

time 

b51 

text 

b52 

integer 

b6 

integer 

b7 

text 

b8 

text 

b9 

text 

chk  hin 

text 

chk  name 

text 

correct 

text 

er 

text 

er 

text 

error 

text 

more 

text 

mrvsls 

text 

pg   . 

integer 

review 

text 

vadult 

integer 

vbodate 

date 

vboday 

text 

vbodist 

text 

vboname 

text 

bodate  in  boarding 
viol54  in  boarding 
viol64  in  boarding 
bounit  in  boarding 
obscity 

obsstate  in  boarding 
obslat  in  boarding 
obslong  in  boarding 
viol55 

viol56  in  boarding 
viol57  in  boarding 
viol58  in  boarding 
viol59  in  boarding 
botime  in  boarding 
viol61  in  boarding 
viol61  in  boarding 
viol62  in  boarding 
viol63  in  boarding 
viol65  in  boarding 
viol66  in  boarding 
viol67  in  boarding 
viol68  in  boarding 
uns69  in  boarding 
uns70  in  boarding 
uns71  in  boarding 
uns72  in  boarding 
uns73  in  boarding 
uns74  in  boarding 
uns75  in  boarding 
uns76  in  boarding 
uns77  in  boarding 
uns78  in  boarding 
uns79  in  boarding 
boreml  in  boarding 
borem2  in  boarding 
borem3  in  boarding 
boname  in  boarding 
borate  in  boarding 
bodist  in  boarding 
boopfac  in  boarding 
boday  in  boarding 
bsunrise  in  boarding 
adultpfd  in  boarding 
bsunset  in  boarding 
bovhin  in  boarding 
weapons  in  boarding 
childpfdin  boarding 
owstatus  in  boarding 
obsbody  in  boarding 
obscount  in  boarding 
flag  variable 
flag  variable 
user  input 
user  input 
flag  variable 
flag  variable 
flag  variable 
user  input 
counting  variable 
flag  variable 
adultpfd  in  boarding 
boarding  date 
boday  in  boarding 
bodist  in  boarding 
boname  in  boarding 
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Used  In 

Name 
vbono 

Type 

mod_brd.prg 

text 

vboopfac 

text 

vborate 

text 

vboreml 

text 

vborem2 

text 

vborem3 

text 

vbosrise 

time 

vbosset 

time 

vbotime 

time 

vbounit 

text 

vchild 

integer 

vobcount 

text 

vobsbody 

text 

vobscity 

text 

vobslat 

real 

vobslong 

real 

vobstate 

text 

vostatus 

text 

vuns69 

text 

vuns70 

text 

vuns71 

text 

vuns72 

text 

vuns73 

text 

vuns74 

text 

vuns7  5 

text 

vuns76 

text 

vuns77 

text 

vuns78 

text 

vuns79 

text 

wiol54 

text 

wiol55 

text 

wiol56 

text 

vviol57 

text 

wiol58 

text 

wiol59 

text 

wiol60 

text 

wiol61 

text 

* 

wiol62 

text 

wiol53 

text 

wiol64 

text 

wiol65 

text 

wiol66 

text 

wiol67 

text 

wiol68 

text 

wslhin 

text 

wslpob 

integer 

weapons 

integer 

mod_owop.prg 

chk  ownr 

text 

choice 

text 

choice 

integer 

er 

text 

error 

text 

error 

text 

go 

text 

nmchange 

text 

opl 

text 

oplO 

text 

opll 

integer 

op2 

text 

op3 

text 

op4 

text 

op  5 

text 

op6 

text 

op  7 

text 

op  8 

text 

Description 


boarding  report  number 
boopfac  in  boarding 
borate  in  boarding 
boreml  in  boarding 
borem2  in  boarding 
borem3  in  boarding 
bsunrise  in  boarding 
bsunset  in  boarding 
boarding  time 
bounit  in  boarding 
childpfd  in  baordmg 
obscount  in  boarding 
obsbody  in  boarding 
obscity  in  boarding 
latitude  position 
longitude  position 
obsstate  in  boarding 
owstatus  in  boarding 
unsafe  condition  69 
unsafe  condition  70 
unsafe  condition  71 
unsafe  condition  72 
unsafe  condition  73 
unsafe  condition  74 
unsafe  condition  75 
unsafe  condition  76 
unsafe  condition  77 
unsafe  condition  78 
unsafe  condition  79 
violation  code  54 
violation  code  55 
violation  code  56 
violation  code  57 
violation  code  58 
violation  code  59 
violation  code  60 
violation  code  61 
violation  code  62 
violation  code  63 
violation  code  64 
violation  code  65 
violation  code  66 
violation  code  67 
violation  code  68 
vslhin  in  vessel 
personnel  on  board 
weapons  in  boarding 
flag  variable 
user  input  variable 
user  input 
flag  variable 
flag  variable 
user  input 
user  input 
flag  variable 
oplname  in  operator 
opcourse  in  operator 
opid  in  operator 
opfname  in  operator 
opmi  in  operator 
opaddr  in  operator 
opcity  in  operator 
opstate  in  operator 
opzip  in  operator 
optelno  in  operator 
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Used  In 

Name 

Type 

mod_owop.prg 

op9 

date 

opchange 
op found 

text 

text 

opid 

integer 

owl 

text 

owlO 

text 

ow2 

text 

ow3 

text 

ow4 

text 

ow5 

text 

ow6 

text 

ow7 

text 

ow8 

text 

ow9 

date 

owchange 
owfouna 

text 

text 

vopaddr 

text 

vopcity 

text 

vopcrse 

text 

vopdob 

date 

vopfname 

text 

vopid 

integer 

-- 

voplname 

text 

vopmi 

text 

vopst 

text 

voptelno 

text 

vopzip 

text 

vowaddr 

text 

vowcity 

text 

vowdob 

date. 

vowfname 

text 

vowlname 

text 

vowmi 

text 

vownid 

text 

vownid 

integer 

vowst 

text 

vowtelno 

text 

vowzip 

text 

mod_sar.prg 

change 

text 

correct 

text 

er 

text 

more 

text 

mrsar 

text 

oldfold 

text 

reenter 

text 

si 

text 

slO 

integer 

sll 

text 

sl2 

real 

sl3 

real 

sl4 

integer 

sl5 

text 

sl6 

text 

sl7 

text 

sl8 

text 

sl9 

text 

s2 

text 

s20 

text 

s21 

text 

s22 

text 

S3 

text 

s4 

date 

s5 

text 

s6 

time 

s7 

time 

Description 


opdob  in  operator 

flag  variable 

flag  variable 

operator  id  (system) 

ownlname  in  owners 

ownid  in  owners 

ownfname  in  owners 

ownmi  in  owners 

ownaddr  in  owners 

owncity  in  owners 

ownstate  in  owners 

ownzip  in  owners 

owntelno  in  owners 

owndob  in  owners 

flag  variable 

flag  variable 

operator  street  address 

operator  city  address 

operator  course  code 

operator  date  of  birth 

operator  first  name 

operator  id  (system) 

operator  last  name 

operator  middle  initial 

operator  state  address 

operator  telephone  number 

operator  zip  code 

owner  street  address 

owner  city  address 

owner  date  of  birth 

owner  first  name 

owner  last  name 

owner  middle  initial 

owner  id  (system' 

owner  id  (system) 

owner  state  address 

owner  telephone  number 

owner  zip  code 

flag  variable 

user  input 

user  input 

flag  variable 

user  input 

folder  number 

flag  variable 

folderno  in  sar 

sarpob  in  sar 

sarvhin  in  sar 

sarlat  in  sar 

sarlong  in  sar 

distofr  in  sar 

immedsar  in  sar 

winddir  in  sar 

windspd  in  sar 

visdist  in  sar 

clouds  in  sar 

ucn  in  sar 

ceiling  in  sar 

seas  in  sar 

swells  in  sar 

mucn  in  sar 

sardate  in  sar 

sarday  in  sar 

sartime  in  sar 

ssunrise  in  sar 
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Used  In 

Name 
s8 

Type 

mod_sar.prg 

time 

s9 

text 

vceilinq 
vdistoff 

text 

integer 

vfoldno 

text 

vimmed 

text 

vmucn 

text 

vsardate 

date 

vsarday 

text 

vsarhin 

text 

vsarlat 

real 

vsarlong 

real 

vsarnod 

text 

vsarpob 
vsartime 

integer 

time 

vseas 

text 

vsunrise 

time 

vsunset 

time 

vswells 

text 

vucn 

text 

wisdist 

text 

vwinddir 

text 

vwindspd 

text 

mod_sut.prg 

both 

text 

change 

text 

correct 

text 

done 

text 

foldok 

text 

more 

text 

mrsut 

text 

name 

text 

reenter 

text 

sulO 

date 

sull 

time 

sul2 

date 

sul3 

time 

sul4 

date 

sul5 

time 

sul6 

date 

sul 

text 

su2 

text 

su3 

time 

su4 

date 

su5 

time 

su6 

date 

su7 

time 

su8 

date 

su9 

text 

valgdate 

date 

valgtime 
vdateos 

time 

date 

vdvmoord 

date 

vdvmoort 

time 

. 

vetadate 

date 

vfoldno 

text 

voseta 

time 

vostime 

time 

vsumoord 

date 

vsumoort 

time 

vtowdate 

date 

vtowtime 

time 

vunit 

text 

vuwdate 

date 

vuwtime 

time 

Description 


ssunset 

sarnod  in  sar 

ceiling  in  sar 

distance  offshore 

sar  folder  number 

immediate  sar? 

multi-unit  case  number 

sar  date 

sar  day  of  the  week 

sarvhin  in  sar 

latitude  position 

longitude  position 

nature  of  distress 

personnel  on  board 

sar  time 

seas  in  sar 

bsunrise  in  boarding 

bsunset  in  boarding 

swells  in  sar 

unit  case  number 

visdist  in  sar 

winddir  in  sar 

windspd  in  sar 

flag  variable 

flag  variable 

user  input 

flag  variable 

flag  variable 

flag  variable 

user  input 

flag  variable 

user  input 

alngdate  in  sarunits 

towtime  in  sarunits 

towdate  in  sarunits 

dvmoored  in  sarunits 

dvmdate  in  sarunits 

sutmoor  in  s'arunits 

sutdate  in  sarunits 

foldno  in  sarunits 

unit  in  sarunits 

uwtime  in  sarunits 

uwdate 

oseta  in  sarunits 

etadate  in  sarunits 

ostime  in  sarunits 

osdate  in  sarunits 

alngtime  in  sarunits 

date  alongside 

time  alongside 

on  scene  date 

date  distressed  vessel  mo 

time  distressed  vessel  mo 

on  scene  eta  date 

sar  folder  number 

on  scene  eta  time 

on  scene  time 

date  sar  unit  moored 

time  sar  unit  moored 

date  started  towing 

time  started  towing 

sar  unit  name 

underway  date 

underway  time 
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Used  In 
mod_vhin.prg 


Name 


Type 


Description 


operator. prg 


opervsl.prg 
opervsls.prg 

owners. prg 


ownvsl.prg 


packdbms.prg 
perintel.prg 


chk  hin 

chk  name 

correct 

correct 

er 

error 

foundv 

more 

mrvsls 

vbadhin 

vconstr 

voffno 

vslfound 

wsleng 

wslft 

wslfuel 

wslhin 

wslhp 

wslhull 

wslin 

wslmake 

wslmod 

wslname 

wslno 

wslprop 

wslton 

wsltype 

wsluse 

wslyear 

datediff 

enddate 

endltr 

ltrdiff 

numrows 

strtdate 

strtltr 

allrecs 

endltr 

ltrdiff 

strtltr 

allrecs 

endltr 

ltrdiff 

numrows 

strtltr 

datediff 

enddate 

endltr 

ltrdiff 

numrows 

strtdate 

strtltr 

allrecs 

allrecs 

endltr 

ltrdiff 

numrows 

strtltr 

choice 

datediff 

enddate 

endltr 

ltrdiff 

numrows 

strtdate 

strtltr 


text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

text 

text 

text 

text 

integer 

text 

text 

text 

text 

text 

integer 

text 

text 

text 

integer 

date 

text 

integer 

integer 

date 

text 

text 

text 

integer 

text 

text 

text 

integer 

integer 

text 

integer 

date 

text 

integer 

integer 

date 

text 

text 

text 

text 

integer 

integer 

text 

text 

integer 

date 

text 

integer 

integer 

date 

text 


flag  variable 

flag  variable 

user  input 

flag  variable 

user  input 

user  input 

user  input 

flag  variable 

user  input 

vslhin  in  vessel 

coded  vessel  construction 

vessel  official  numbers 

flag  variable 

coded  vessel  engine  compa 

vessel  length  (feet) 

coded  fuel  compartment 

vslhin  in  vessel 

vessel  horsepower 

coded  vessel  hull  materia 

vessel  length  (inches) 

vessel  make 

vslmodel  in  vessel 

vessel  name 

vessel  number 

coded  vessel  propulsion 

vsltons  in  vessel 

coded  vessel  type 

coded  vessel  use 

vessel  year 

date  difference 

ending  date 

ending  letter 

letter  difference 

counting  variable 

starting  date 

starting  letter 

flag  -  all  records? 

ending  letter 

letter  difference 

start  letter 

user  all  records  input 

ending  letter 

letter  difference 

counting  variable 

starting  letter 

date  difference 

ending  date 

ending  letter 

letter  difference 

counting  variable 

starting  date 

starting  letter 

flag  all  records? 

user  all  records  input 
ending  letter 
letter  difference 
counting  variable 
starting  letter 
user  choice  input 
date  difference 
ending  date 
ending  letter 
letter  difference 
counting  variable 
starting  date 
starting  letter 
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Used  In        Name 

Type 

prs_main.prg    pick9 

integer 

qrymain.prg     picklO 
quer_per.prg    bohisprn 

integer 

text 

chk-op 

text 

count 

integer 

done 

text 

more 

text 

mrname 

text 

opid 

integer 

oprfound 

text 

owndone 

text 

ownfound 

text 

owoptest 

text 

perintpr 

text 

persprn 

text 

sarhsprn 
searcnok 

text 

text 

status 

text 

vale 

text 

vbodate 

date 

vbolat 

real 

vbolong 

real 

vboname 

text 

vbono 

text 

vborate 

text 

vboreml 

text 

vborem2 

text 

vborem3 

text 

vbotime 

time 

vdate 

date 

vdistoff 

integer 

vepic 
vfname 

text 

text 

vfoldno 

text 

vimmed 

text 

vintdate 

date 

vlname 

text 

vmi 

text 

vmucn 

text 

voffno 

text 

vopaddr 

text 

vopcity 

text 

vopcrse 

text 

vopdob 

date 

vopfname 

text 

voplname 

text 

vopmi 

text 

vopst 

text 

voptelno 

text 

vopzip 

text 

vowid 

integer 

vperaddr 

text 

vpercity 

text 

vperdob 

date 

vpermi 

text 

vperst 

text 

vpertel 

text 

vperzip 

text 

vpfname 

text 

vplname 

text 

vreml 

text 

vrem2 

text 

vrem3 

text 

vsardate 

date 

vsarday 

text 

Description 


menu  variable 

menu  variable 

user  input 

flag  variable 

counting  variable 

flag  variable 

flag  variable 

user  input 

operator  id  (system) 

flag  variable 

flag  variable 

flag  variable 

flag  variable 

user  input 

user  input 

user  input 

flag  variable 

flag  variable 

operator  alcohol  conditio 

boarding  date 

latitude  position 

longitude  position 

boname  in  boarding 

boarding  report  number 

borate  in  boarding 

boreml  in  boarding 

borem2  in  boarding 

borem3  in  boarding 

boarding  time 

intelligence  date 

distance  offshore 

epic  code 

first  name 

sar  folder  number 

immediate  sar? 

vessel  intelligence  date 

last  name 

middle  initial 

multi-unit  case  number 

vessel  official  numbers 

operator  street  address 

operator  city  address 

operator  course  code 

operator  date  of  birth 

operator  first  name 

operator  last  name 

operator  middle  initial 

operator  state  address. 

operator  telephone  number 

operator  zip  code 

owner  record  id  number 

street  address 

city  address 

date  of  birth 

middle  initial 

state  address 

telephone  number 

zip  code 

first  name 

last  name 

personnel  intelligence  re 

personnel  intelligence  re 

personnel  intelligence  re 

sar  date 

sar  day  of  the  week 
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Used  In 
quer_per.prg 


Name 


Type 


Description 


quer_vsl.prg 


vsarlat 

vsarlong 

vsarpob 

vsartime 

vslprn 

vstolen 

vucn 

vuns69 

vuns70 

vuns71 

vuns72 

vuns73 

vuns74 

vuns75 

vuns76 

vuns77 

vuns78 

vuns79 

wiol54 

wiol55 

wiol56 

wiol57 

wio!58 

wiol59 

.wiol60 

wiol61 

wiol62 

wiol63 

wiol64 

wiol65 

wiol66 

wiol67 

wiol68 

wreml 

wrem2 

wrem3 

wslhin 

wslmake 

wslname 

wslno 

wslpob 

weapons 

bohisprn 

chk-hin 

chk-intl 

chk-name 

chk-no 

chkoffno 

choice 

count 

menu 

more 

nameok 

opid 

owhisprn 

owid 

sarhsprn 

vale 

vbodate 

vbolat 

vbolong 

vboname 

vbono 

vborate 

vboreml 


real 

real 

integer 

time 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

text 

integer 

integer 

text 

text 

text 

text 

text 

text 

integer 

integer 

text 

text 

text 

integer 

text 

integer 

text 

text 

date 

real 

real 

text 

text 

text 

text 


latitude  position 
longitude  position 
personnel  on  board 
sar  time 
user  input 
stolen  vessel 
unit  case  number 
unsafe  condition  69 
unsafe  condition  70 
unsafe  condition  71 
unsafe  condition  72 
unsafe  condition  73 
unsafe  condition  74 
unsafe  condition  75 
unsafe  condition  76 
unsafe  condition  77 
unsafe  condition  78 
unsafe  condition  79 
violation  code  54 
violation  code  55 
violation  code  56 
violation  code  57 
violation  code  58 
violation  code  59 
violation  code  60 
violation  code  61 
violation  code  62 
violation  code  63 
violation  code  64 
violation  code  65 
violation  code  66 
violation  code  67 
violation  code  68 
vessel  intelligence  remar 
vessel  intelligence  remar 
vessel  intelligence  remar 
vslhin  in  vessel 
vessel  make 
vessel  name 
vessel  number 
personnel  on  board 
weapons  in  boarding 
user  input 
flag  variable 
flag  variable 
flag  variable 
flag  variable 
flag  variable 
user  input  choice 
counting  variable 
flag  variable 
flag  variable 
flag  variable 
operator  id  (system) 
user  input 
owner  id  (system) 
user  input 

operator  alcohol  conditio 
boarding  date 
latitude  position 
longitude  position 
boname  in  boarding 
boarding  report  number 
borate  in  boarding 
boreml  in  boarding 


213 


Used  In 

Name 
vborem2 

Type 

quer_vsl.prg 

text 

vborem3 

text 

vbotime 

time 

vdate 

date 

vdistoff 

integer 

vdob 

date 

vepic 

text 

vfname 

text 

vfoldno 

text 

vimmed 

text 

vintdate 

date 

vintprn 

text 

vlname 

text 

vmi 

text 

vmucn 

text 

voffno 

text 

vopaddr 

text 

vopcity 

text 

vopcrse 

text 

vopdob 

date 

vopfname 

text 

voplname 

text 

vopmi 

text 

vopst 

text 

voptelno 

text 

vopzip 

text 

vowaddr 

text 

vowcity 

text 

vowdob 

date 

vowfname 

text 

vowlname 

text 

vowmi 

text 

vowst 

text 

vowtelno 

text 

vowzip 

text 

vreml 

text 

vrem2 

text 

'  vrem3 

text 

vsardate 

date 

vsarday 
vsarlat 

text 

real 

vsarlong 

real 

vsarpob 
vsartime 

integer 

time 

vslprn 

text 

vstolen 

text 

vucn 

text 

vuns69 

text 

vuns70 

text 

vuns71 

text 

vuns72 

text 

vuns73 

text 

vuns74 

text 

vuns75 

text 

vuns76 

text 

vuns77 

text 

vuns78 

text 

vuns79 

text 

wiol54 

text 

wiol55 

text 

wiol56 

text 

wiol57 

text 

wiol58 

text 

wiol59 

text 

wiol60 

text 

Description 


borem2  in  boarding 
borem3  in  boarding 
boarding  time 
intelligence  date 
distance  offshore 
date  of  birth 
epic  code 
first  name 
sar  folder  number 
immediate  sar? 
vessel  intelligence  date 
user  input 
last  name 
middle  initial 
multi-unit  case  number 
vessel  official  numbers 
operator  street  address 
operator  city  address 
operator  course  code 
operator  date  of  birth 
operator  first  name 
operator  last  name 
operator  middle  initial 
operator  state  address 
operator  telephone  number 
operator  zip  code 
owner  street  address 
owner  city  address 
owner  date  of  birth 
owner  first  name 
owner  last  name 
owner  middle  initial 
owner  state  address 
owner  telephone  number 
owner  zip  code 
personnel  intelligence  re 
personnel  intelligence  re 
personnel  intelligence  re 
sar  date 

sar  day  of  the  week 
latitude  position 
longitude  position 
personnel  on  board 
sar  time 
flag  variable 
stolen  vessel 
unit  case  number 
unsafe  condition  69 
unsafe  condition  70 
unsafe  condition  71 
unsafe  condition  72 
unsafe  condition  73 
unsafe  condition  74 
unsafe  condition  75 
unsafe  condition  76 
unsafe  condition  77 
unsafe  condition  78 
unsafe  condition  79 
violation  code  54 
violation  code  55 
violation  code  56 
violation  code  57 
violation  code  58 
violation  code  59 
violation  code  60 
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Used  In 

Name 

Type 

quer_vsl.prg 

wiol61 

text 

wiol62 

text 

wiol63 

text 

wiol64 

text 

wiol65 

text 

wiol66 

text 

wiol67 

text 

wiol68 

text 

wreml 

text 

wrem2 

text 

wrem3 

text 

wslhin 

text 

wslmake 

text 

wslname 

text 

wslno 

text 

wslpob 

integer 

weapons 

integer 

rptmain.prg 

pick4 

integer 

sar  main.prg 

pick7 

integer 

sardates.prg 

jundatel 

date 

sarday.prg . 

aprdatel 

date 

aprdate2 

date 

aprsar 

integer 

augdatel 

date 

augdate2 

date 

augsar 

integer 

change 
count 

real 

integer 

decdatel 

date 

decdate2 

date 

decsar 

integer 

enddate 

date 

febdatel 

date 

febdate2 

date 

febsar 

integer 

found 

text 

friday 

integer 

initdate 

date 

jandatel 

date 

^andate2 

date 

^ansar 

integer 

juldatel 

date 

}uldate2 

date 

pulsar 

integer 

jundatel 

date 

qundate2 

date 

junsar 

integer 

mardatel 

date 

mardate2 

date 

marsar 

integer 

maydatel 

date 

maydate2 

date 

maysar 

integer 

monday 

integer 

new 

integer 

novdatel 

date 

novdate2 

date 

novsar 

integer 

numrows 

integer 

numyears 
octdatel 

integer 

date 

octdate2 

date 

octsar 

integer 

old 

integer 

pctapr 

real 

Description 


violation  code  61 

violation  code  62 

violation  code  63 

violation  code  64 

violation  code  65 

violation  code  66 

violation  code  67 

violation  code  68 

vessel  intelligence  remar 

vessel  intelligence  remar 

vessel  intelligence  remar 

vslhin  in  vessel 

vessel  make 

vessel  name 

vessel  number 

personnel  on  board 

weapons  in  boarding 

menu  variable 

menu  variable 

time  computation  variable 

starting  date 

ending  date 

summation  variable 

starting  date 

ending  date 

summation  variable 

percentage 

counting  variable 

starting  date 

ending  date 

summation  variable 

ending  date 

starting  date 

ending  date 

summation  variable 

flag  variable 

counting  variable 

starting  date 

starting  date 

ending  date 

summation  variable 

starting  date 

ending  date 

summation  variable 

starting  date 

ending  date 

summation  variable 

starting  date 

ending  date 

summation  variable 

starting  date 

ending  date 

summation  variable 

counting  variable 

this  year's  sar  cases 

starting  date 

ending  date 

summation  variable 

counting  variable 

counting  variable 

starting  date 

ending  date 

summation  variable 

previous  year's  sar  cases 

percentage 
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Used  In 
sarday.prg 


Name 


Type 


Description 


pctaug 

pctchang 

pctdec 

pctfeb 

pctfri 

pctjan 

pct^ul 

pctjun 

pctmar 

pctmay 

pctmon 

pctnov 

pctoct 

pctsat 

pctsep 

pctsun 

pctthu 

pcttue 

pctwed 

sarOO 

sarOl 

sar02 

sar03 

sar04 

sar05 

sar06 

sar07 

sar08 

sar09 

sarlO 

sarll 

sarl2 

sar81 

sar82 

sar83 

sar84 

sar85 

sar86 

sar87 

sar88 

sar89 

sar90 

sar91 

sar92 

sar93 

sar94 

sar95 

sar96 

sar97 

sar98 

sar99 

Saturday 

sepdatel 

sepdate2 

sepsar 

suml 

sumlO 

sumll 

suml2 

sum2 

sum20 

sum3 

sum4 

sum5 

sum6 


real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

date 

date 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 


percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
starting  date 
ending  date 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
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Used  In 
sarday.prg 


Name 


Type 


Description 


Sunday 

thursday 

totsars 

tuesday 

wedsday 

year 

yrl981 

yrl981a 

yrl982 

yrl982a 

yrl983 

yrl983a 

yrl984 

yrl984a 

yrl985 

yrl985a 

yrl986 

yrl986a 

yrl987 

yrl987a 

yrl988 

yrl988a 

yrl989 

yrl989a 

yrl990 

yrl990a 

yrl991 

yrl991a 

yrl992 

yrl992a 

yrl993 

yrl993a 

yrl994 

yrl994a 

yrl995 

yrl995a 

yrl996 

yrl996a 

yrl997 

yrl997a 

yrl998 

yrl998a 

yrl999 

yrl999a 

yr2000 

yr2000a 

yr2001 

yr2001a 

yr2002 

yr2002a 

yr2003 

yr2003a 

yr2004 

yr2004a 

yr2005 

yr2005a 

yr2006 

yr2006a 

yr2007 

yr2007a 

yr2008 

yr2008a 

yr2009 

yr2009a 

yr2010 


integer 

integer 

integer 

integer 

integer 

integer 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 

date 


counting  variable 
counting  variable 
summation  variable 
counting  variable 
counting  variable 
saryear 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 

late 

i  date 

iate 

i  date 

late 

i  date 

late 

j  date 

late 


ending 
startm 
ending 
startm 
ending 
startm 
ending 
startm 
ending 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
ending  date 
starting  date 
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Used  In        Name 

Type 

sarday.prg     yr2010a 

date 

yr2011 

date 

yr2011a 

date 

yr2012 

date 

yr2012a 

date 

yrtestl 

integer 

yrtest2 

integer 

sardump.prg     datediff 

integer 

enddate 

date 

numrows 

integer 

strtdate 

date 

sarmajor.prg    datediff 

integer 

easttst 

real 

enddate 

date 

gridcnt 

integer 

marea 

integer 

inpct 

real 

northtst 

real 

numrows 

integer 

outarea 

integer 

outpct 

southtst 

real 

real 

strtdate 

date 

temppct 

real 

totsars 

integer 

westtst 

real 

sarminor.prg    datediff 

integer 

easttst 

real 

enddate 

date 

gridcnt 

integer 

inarea 

integer 

inpct 

real 

northtst 

real 

numrows 

integer 

outarea 

integer 

outpct 
southtst 

real 

•real 

strtdate 

date 

temppct 
westtst 

real 

real 

sarsmbt.prg     datediff 

integer 

enddate 

date 

inpct 

real 

inpcttmp 

real 

inside 

integer 

numrows 

integer 

outpct 

real 

outpcttm 

real 

outside 

integer 

strtdate 

date 

totsars 

integer 

sarsys.prg     pickl 

integer 

sartimes.prg    algavg 

real 

algtimes 
datediff 

integer 
integer 

datedour 

real 

enddate 

date 

maxaltim 

real 

maxostim 

real 

maxshtim 

real 

maxtttim 

real 

maxtwtim 

real 

minaltim 

real 

minostim 

real 

minshtim 

real 

Description 


ending  date 

starting  date 

ending  date 

starting  date 

ending  date 

leap  year  test 

leap  year  test 

date  difference 

ending  date 

counting  variable 

starting  date 

date  difference 

nautical  position  coord. 

ending  date 

counting  variable 

counting  variable 

percentage 

nautical  position  coord. 

counting  variable 

counting  variable 

percentage 

nautical  position  coord. 

starting  date 

percentage 

counting  variable 

nautical  position  coord. 

date  difference 

nautical  position  coord. 

ending  date 

counting  variable 

counting  variable 

percentage 

nautical  position  coord. 

counting  variable 

counting  variable 

percentage 

nautical  position  coord. 

starting  date 

percentage 

nautical  position  coord. 

date  difference 

starting  date 

percentage 

percentage 

summation  variable 

counting  variable 

percentage 

percentage 

summation  variable 

starting  date 

counting  variable 

menu  variable 

average  alongside  time 

counting  variable 

date  difference 

time  computation  variable 

ending  date 

maximum  alongside  time 

maximum  on  scene  time 

maximum  search  time 

maximum  total  case  time 

maximum  towing  time 

minimum  alongside  time 

minimum  on  scene  time 

minimum  search  time 
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Used  In 

Name 
mintttim 

Type 

sartimes.prg 

real 

mintwtim 

real 

oscavg 

real 

osdate 

date 

ossum 

real 

ostime 

time 

ostimes 

integer 

schavg 

real 

schtimes 

integer 

strtdate 

date 

sutdate 

date 

sutmoor 

time 

test 

real 

timeadd 

real 

timehour 

real 

totavg 

real 

totsum 

real 

tottimes 

integer 

towavg 

real 

towsum 

real 

towtimes 

integer 

uwdate 

date 

uwtime 

time 

smboatrp.prg 

datediff 

integer 

enddate 

date 

inside 

integer 

obslat 

real 

obslong 

real 

outside 

integer 

strtdate 

date 

totbrds 

integer 

startup. prg 

chances 

integer 

count 

integer 

username 

text 

userpass 

text 

validusr 

text 

utlmain.prg 

pickll 

integer 

vessel. prg 

anytype 

text 

choice 

text 

endltr 

text 

legalch 

text 

legaltyp 

text 

legaluse 

text 

ltrdiff 

integer 

numrows 

integer 

strtltr 

text 

typchoic 

text 

typetest 

text 

usechoic 

text 

usetest 

text 

violfreq.prg 

datediff 

integer 

enddate 

date 

pct54 

real 

pct54tmp 

real 

pct55 

real 

pct55tmp 

real 

pct56 

real 

pct56tmp 

real 

pct57 

real 

pct57tmp 

real 

pct58 

real 

pct58tmp 

real 

pct59 

real 

pct59tmp 

real 

pct60 

real 

Description 


minimum  total  case  time 

minimum  towing  time 

average  on  scene  time 

on  scene  date 

summation  variable 

on  scene  time 

counting  variable 

average  search  time 

counting  variable 

starting  date 

sar  unit  moored  date 

sar  unit  moored  time 

comparison  variable 

time  computation  variable 

time  computation  variable 

average  total  case  time 

summation  variable 

counting  variable 

average  towing  time 

summation  variable 

counting  variable 

underway  date 

underway  time 

date  difference 

ending  date 

counting  variable 

nautical  position  coord. 

nautical  position  coord. 

counting  variable 

starting  date 

counting  variable 

chances  to  logon 

counting  variable 

user  name  input 

user  password 

flag  variable 

menu  variable 

flag  variable 

user  choice  input 

ending  letter 

flag  variable 

flag  variable 

flag  variable 

letter  difference 

counting  variable 

starting  letter 

user  type  choice 

vessel  type 

user  vessel  use  choice 

vessel  use 

date  difference 

ending  date 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 
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Used  In 
violfreq.prg 


Name 


Type 


Description 


pct60tmp 

pct61 

pct61tmp 

pct62 

pct62tmp 

pct63 

pct63tmp 

pct64 

pct64tmp 

pct65 

pct65tmp 

pct66 

pct66tmp 

pct67 

pct67tmp 

pct68 

pct68tmp 

pct69 

pct69tmp 

pct70 

pct70tmp 

pct71 

pct71tmp 

pct72 

pct72tmp 

pct73 

pct73tmp 

pct74 

pct74tmp 

pct75 

pct75tmp 

pct76 

pct76tmp 

pct77 

pct77tmp 

pct78 

pct78tmp 

pct79 

pct79tmp 

strtdate 

uns69s 

uns70s 

uns71s 

uns72s 

uns73s 

uns74s 

uns75s 

uns76s 

uns77s 

uns78s 

uns79s 

unstotl 

unstot2 

unstot3 

unstot4 

unstot5 

unstot6 

unstot7 

unstotal 

viol54s 

viol55s 

viol56s 

viol57s 

viol58s 

vio!59s 


real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

integer 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

date 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 


percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage  " 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

percentage 

starting  date 

counting  variable 

counting  variable  - 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

summation  variable 

summation  variable 

summation  variable 

summation  variable 

summation  variable 

summation  variable 

summation  variable 

total  unsafe  conditions 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 

counting  variable 
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Used  In 
violfreq.prg 


Name 


Type 


Description 


vsl_raain.prg 
vsloper.prg 


vslowner.prg 


viol60s 

viol61s 

viol62s 

viol63s 

viol64s 

viol65s 

viol66s 

viol67s 

viol68s 

vtotl 

vtotlO 

vtotll 

vtotl2 

vtotl3 

vtot2 

vtot3 

vtot4 

vtot5 

vtot6 

vtot7 

vtot8 

vtot9 

vtotal 

pick8 

allrecs 

allrecs 

endltr 

ltrdiff 

numrows 

strtltr 

allrecs 

allrecs 

endltr 

ltrdiff 

numrows 

strtltr 


integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

text 

text 

text 

integer 

integer 

text 

text 

text 

text 

integer 

integer 

text 


counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
counting  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
summation  variable 
total  violations 
menu  variable 
user  all  records  input 
flag  -  all  records? 
ending  letter 
letter  difference 
counting  variable 
starting  letter 
flag  -  all  records? 
user  all  records  input 
ending  letter 
letter  difference 
counting  variable 
starting  letter 
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Data  Entry  /  Edit  Rules 

RULE     1      vslyear  IN  vessel  fail 
or  vslyear  IN  vessel  ge  0 
Message:***  Invalid  Vessel  Year  *** 

RULE    2     vslhp  IN  vessel  fail 
or  vslhp  IN  vessel  ge  0 
Message:***  Invalid  Vessel  Horsepower  *** 

RULE     3      vsluse  IN  vessel  fail 

or  vsluse  IN  vessel  eqa  vuse  IN  boatuse 
Message:***  Invalid  Vessel  Use  *** 

RULE    4     vsltype  IN  vessel  fail 

or  vsltype  IN  vessel  eqa  vtype  IN  boattype 
Message:***  Invalid  Vessel  Type  *** 

RULE    5     vslprop  IN  vessel  fail 

or  vslprop  IN  vessel  eqa  proptype  IN  boatprop 
Message:***  Invalid  Vessel  Propulsion  *** 

RULE    6      vslhull  IN  vessel  fail 

or  vslhull  IN  vessel  eqa  hmattype  IN  hullmat 
Message:***  Invalid  Vessel  hull  Type  *** 

RULE    7     vsleng  IN  vessel  fail 

or  vsleng  IN  vessel  eqa  ecomptyp  IN  engcomp 
Message:***  Invalid  Engine  Compartment  Type  *** 

RULE    8     vslfuel  IN  vessel  fail 

or  vslfuel  IN  vessel  eqa  fcomptyp  IN  fuelcomp 
Message:***  Invalid  Fuel  Compartment  Type  *** 
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RULE    9      vslconst  IN  vessel  fail 

or  vslconst  IN  vessel  eqa  constype  IN  constr 
Message:***  Invalid  Vessel  Construction  *** 

RULE   10      cmeyear  IN  vessel  fail 
or  cmeyear  IN  vessel  ge  0 
Message:***  Invalid  CME  Decal  Year  *** 

RULE    1 1      vslmasts  IN  vessel  fail 
or  vslmasts  IN  vessel  ge  0 
Message:***  Invalid  No.  Vessel  Masts  *** 

RULE   12      sailno  IN  vessel  fail 
or   sailno  IN  vessel  ge  0 
Message:***  Invalid  Sail  Number  *** 

RULE   13      hlcolor  IN  vessel  eqa  shade  IN  colors 
and  trcolor  IN  vessel  eqa  shade  IN  colors 
and  slcolor  IN  vessel  eqa  shade  IN  colors 
and  cbcolor  IN  vessel  eqa  shade  IN  colors 
and  dkcolor  IN  vessel  eqa  shade  IN  colors 
Message:***  Invalid  Color  Entry  *** 

RULE    14      vsltons  IN  vessel  >  =  0 
Message:***  Invalid  Vessel  Tons  ***    . 

RULE    15      vsllenft  IN  vessel  >  =  0 

Message:***  Invalid  Vessel  Length  (ft)  *** 

RULE    16      vsllenin  IN  vessel  >  =  0 
and  vsllenin  IN  vessel  <  =  12 
Message:***  Invalid  Vessel  Length  (in)  *** 

RULE   17     vslvalue  IN  vessel  >  =  0 
Message:***  Invalid  Vessel  Value  *** 
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RULE   18     cmedecal  IN  vessel  fail 
or  cmedecal  IN  vessel  =  Y 
or  cmedecal  IN  vessel  =  N 
Message:***  Invalid  CME  Decal  Entry  [Y/N]  *** 

RULE    19      opstate  IN  operator  fail 

or   opstate  IN  operator  eqa  abbrev  IN  states 
or  opstate  IN  operator  eqa  symbol  IN  nations 
Message:***  Invalid  Operator  State/Nation  *** 

RULE   20      opzip  IN  operator  fail 
or   opzip  IN  operator  >  =  0 
Message:***  Invalid  Operator  Zip  Code  *** 

RULE   21      optelno  IN  operator  fail 
or  optelno  IN  operator  >  =  0 
Message:***  Invalid  Operator  Phone  Number  *** 

RULE  22      opcourse  IN  operator  fail 

or  opcourse  IN  operator  eqa  coursetp  IN  courses 
Message:***  Invalid  Operator  Course  Code  *** 

RULE  23      ownzip  IN  owners  fail 
or   ownzip  IN  owners  >  =  0 
Message:***  Invalid  Owner  Zip  Code  *** 

RULE   24      ownstate  IN  owners  fail 

or  ownstate  IN  owners  eqa  symbol  IN  nations 
or   ownstate  IN  owners  eqa  abbrev  IN  states 
Message:***  Invalid  Owner  State/Nation  *** 


RULE  25      owntelno  IN  owners  fail 
or   owntelno  IN  owners  >  =  0 
Message:***  Invalid  Owner  Phone  Number  *** 
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RULE  26     sarday  IN  sar  fail 

or  sarday  IN  sar  eqa  dayabbr  IN  days 
Message:***  Invalid  SAR  Day  of  Week  *** 

RULE   27      sarpob  IN  sar  >  =  0 
Message:***  Invalid  SAR  POB  *** 

RULE   28      sarlat  IN  sar  >  =  0.0 
and  sarlat  IN  sar  <  =  90.0 
Message:***  Invalid  SAR  Latitude  *** 

RULE   29      sarlong  IN  sar  >  =  0.0 
and  sarlong  IN  sar  <  =   180.0 
Message:***  Invalid  SAR  Longitude  *** 

RULE   30      offshore  IN  sar  >  =  0 

Message:***  Invalid  Distance  Offshore  *** 

RULE   31      immedsar  IN  sar  =  Y 
or  immedsar  IN  .sar  =  N 
or  immedsar  IN  sar  fail 
Message:***  Invalid  Immediate  SAR  Entry  [Y/N]  ** 

RULE   32      winddir  IN  sar  >  =  000 
and  winddir  IN  sar  <  360 
Message:***  Invalid  Wind  Direction  *** 

RULE   33      windspd  IN  sar  >  =  0 
Message:***  Invalid  Wind  Speed  *** 

RULE   34      visdist  IN  sar  >  =  0 

Message:***  Invalid  Visual  Distance  *** 
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RULE  35     clouds  IN  sar  >  =  0 
and  clouds  IN  sar  <  =  10 
Message:***  Invalid  Cloud  Percentage  (Tenths)  ** 

RULE   36      ceiling  IN  sar  >  =  0 

Message:***  Invalid  Cloud  Ceiling  (Feet)  *** 

RULE   37      seas  IN  sar  >  =  0 

Message:***  Invalid  Sea  Height  (Feet)  *** 

RULE   38      swells  IN  sar  >  =  0 

Message:***  Invalid  Swell  Height  (Feet)  *** 

RULE   39      epiccode  IN  vslintel  eqa  epicno  IN  epic 
or  epiccode  IN  vslintel  fail 
Message:***  Invalid  EPIC  Code  Entry  *** 

RULE  40     folderno  IN  sar  nea  folderno  IN  sar 
Message:***  Duplicate  SAR  Folder  Number  *** 

RULE  41      bono  IN  boarding  nea  bono  IN  boarding 
Message:***  Duplicate  Boarding  Report  Number  *** 

RULE  42      vslpob  IN  boarding  >  =  0 
Message:***  Invalid  Boarding  POB  *** 

RULE  43      adultpfd  IN  boarding  >  =  0 
Message:***  Invalid  Adult  PFD/POB  *** 

RULE  44      childpfd  IN  boarding  >  =  0 
Message:***  Invalid  Child  PFD/POB  *** 

RULE  45      owstatus  IN  boarding  eqa  ostattyp  IN  status 
or  owstatus  IN  boarding  fail 
Message:***  Invalid  Owner  Status  *** 
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RULE  46     obsstate  IN  boarding  eqa  abbrev  IN  states 
or  obsstate  IN  boarding  eqa  symbol  IN  nations 
or  obsstate  IN  boarding  fail 
Message:***  Invalid  Boarding  State/Nation  *** 

RULE  47      obslat  IN  boarding  >  =  0.0 
and  obslat  IN  boarding  <  =  90.0 
Message:***  Invalid  Boarding  Latitude  *** 

RULE  48      obsiong  IN  boarding  >  =  0.0 
and  obsiong  IN  boarding  <  =  180.0 
Message:***  Invalid  Boarding  Longitude  *** 

RULE  49      boday  IN  boarding  eqa  dayabbr  IN  days 
or  boday  IN  boarding  fail 
Message:***  Invalid  Boarding  Day  of  Week  *** 

RULE   50     weapons  IN  boarding  >  =  0 

Message:***  Invalid  Number  of  Weapons  *** 

RULE  51      bodist  IN  boarding  eqa  distno  IN  district 
or  bodist  IN  boarding  fail 
Message:***  Invalid  Boarding  District  *** 

RULE   52      vslhin  IN  vessel  nea  vslhin  IN  vessel 
Message:***  Error:  Duplicate  Vessel  HIN  *** 
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APPENDIX  D 
MODULE  FUNCTIONAL  DESCRIPTIONS 

The  US  Coast  Guard  Group  Monterey  SARELTIS  prototype  design  includes 
eleven  sets  of  application  programs  that  access  one  central  relational  database.  These 
sets  of  application  programs  include: 

•  SARSYS.PRG  --  Main  Menu  Programs 

•  SENTRY.PRG  --  Data  Entry  Menu  and  Programs 

•  MODIFY. PRG  --  Data  Modification  Menu  and  Programs 

•  SREPORTS.PRG  --  Reports  Master  Menu  Programs 

•  INTRPTS.PRG  --  Intelligence  Reports  Menu  and  Programs 

•  BRDRPTS.PRG  --  Boarding  Reports  Menu  and  Programs 

•  SARRPTS.PRG  —  Sar  Reports  Menu  and  Programs 

•  VSLRPTS.PRG  --  Vessel  Reports  Menu  and  Programs 

•  PRSRPTS.PRG  --  Personnel  Reports  Menu  and  Programs 

•  SQUERY.PRG  --  Database  Query  Menu  and  Programs 

•  SUTILITY.PRG  --  Utilities  Menu  and  Programs 

Each  application  program  set  consists  of  a  master  menu  block  and  numerous  modules 
that  perform  specific  functions.  The  modules  and  menus  are  called  Command  and 
Menu  files  within  the  R:base  5000  programming  language.  Functional  descriptions  of 
each  module,  grouped  by  application  program  set,  are  contained  in  this  appendix. 

1.   SARSYS.PRG 

*(********************************************************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

MAIN  MENU  and  STARTUP  APPLICATION 

Author:    Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

*/•********************************************************************** 


228 


*(********************************************************************** 


Program: 
Author: 
Date  Written 
Description 
Tables  Used 
Temp  Tables 
Reports  Used 
Forms  Used: 


Access  Input  Module 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  input  master  menu. 

none 

none 

none 

none 


*(********************************************************************** 


Program: 
Author : 
Date  Written 
Description 
Tables  Used 
Temp  Tables 
Reports  Used 
Forms  Used: 


Access  Modify  Module 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  modify  master  menu. 

none 

none 

none 

none 


*/********************************************************************** 


Program: 
Author: 
Date  Written 
Description 
Tables  Used 
Temp  Tables 
Reports  Used 
Forms  Used: 


Access  Query  Module 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  query  master  menu, 

none 

none 

none 

none 


*/********************************************************************** 


Program: 
Author : 
Date  Written 
Description 
Tables  Used 
Temp  Tables 
Reports'  Used 
Forms  Used: 


Access  Reports  Module 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  reports  master  menu. 

none 

none 

none 

none 


* ( ********************************************************************** 

Access  Utilities  Module 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  utility  master  menu. 


Program: 
Author : 
Date  Written 
Description 
Tables  Used 
Temp  Tables 
Reports  Used 
Forms  Used: 


none 
none 
none 
none 


*(********************************************************************** 


Program: 

Author: 

Date  Written; 

Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Access  Ad  Hoc  Module 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  allows  the  user  to  exit  the 

menus  to  the  R:base  5000  command  prompt  to 

execute  ad  hoc  queries. 

none 

none 

none 

none 


*********************************************************************** \ 
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2.  SENTRY.PRG 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

INPUT  MASTER  MENU  and  INPUT  PROGRAMS 

Author:    Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


*(***************************^ 


Program: 

Author: 

Date  Written: 

Description: 

Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Add  Sar 

H  R  Lang  and  J  D  Allen 

July  1987 

This  program  allows  the  user  to  input 

sar  case  information. 

vessel,  sar,  owners,  operators,  owvsl,  opvsl 

none 

none 

sarforml,  sarform2,  sarform3,  sarform4, 

sarformS,  sarform6,  sarf orm7 ,  sarform8, 

sarform9 


*/,*******^***A*****************************************************5"c**** 


Program: 
Author : 
Date  Written: 
Description: 

Tables  Used: 

Temp  Tables: 
Reports  Used; 
Forms  Used: 


Add  Sar  with  Boarding 

H  R  Lang  and  J  D  Allen 

July  1987 

This  program  allows  the  user  to  enter  sar 

and  boarding  information. 

boarding,  vessel,  owners,  operator,  owvsl, 

opvsl,  sar 

none 

none 

cg4100al,  cg4100a2,  cg4100a3,  cg4100a4, 

cg4100a5,  cg4100a6,  cg4100a7,  cg4100a8, 

cg4100a9,  sbdf orml ,  sarforml,  sarform8, 

sarform9,  sarform5 


*/************************************^ 


Program: 

Author: 

Date  Written: 

Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Add  Sar  Units 

H  R  Lang  and  J  D  Allen 

August  1987 

This  program  allows  the  user  to  input  sar 

unit  data. 

sar,  sarunits 

none 

none 

sarform8 


*(************************************ 
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*(********************************************************************** 

Program:         Add  Boarding 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:     July  1987 

Description:      This  program  allows  the  user  to  input 

boarding  information. 
Tables  Used:      boarding,  vessel,  owners,  operator,  owvsl, 

opvsl, 
Temp  Tables :      none 
Reports  Used:     none 
Forms  Used:       cg4100al,  cg4100a2,  cg4100a3,  cg4100a4, 

cg4100a5,  cg4100a6,  cg4100a7,  cg4100a8, 

cg4100a9,  sarform5 

* / ********************************************************************** 

Program:  Add  Owner 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:  July  1987 

Description:  This  program  allows  the  user  to  input 

additional  owner  information. 

Tables  Used:  vessel,  owners,  owvsl 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  ownrmodl ,  ownrmod2 

***********************************************************************) 

3.  MODIFY.PRG 

*/********************************************************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT' of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

MODIFY  MAIN  MENU  and  APPLICATIONS   ■ 

Author:    Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

*( *********** *********************************************************** 

Program:  Modify  Sar 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:  August  1987 

Description:  This  program  allows  the  user  to  modify 

sar  information  in  the  database. 

Tables  Used:  sar,  vessel 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  sarmod 

*(********************************************************************** 
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*/********************************************************************** 


Program: 
Author : 
Date  Written: 
Description: 

Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Modify  Boarding 

H  R  Lang  and  J  D  Allen 

August  1987 

This  program  allows  the  user  to  modify 

boarding  information  in  the  database. 

boarding,  vessel 

none 

none 

bomodl ,  bomod2 ,  bomod3 


*/•********************************************************************** 


Program: 

Author: 

Date  Written: 

Description: 

Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Modify  Vessel 

H  R  Lang  and  J  D  Allen 

August  1987 

This  program  allows  the  user  to  modify 

vessel  information  in  the  database. 

vessel 

none 

none 

vslmodl,  vslmod2 


*/■********************************************************************** 


Program:- 
Author : 
Date  Written 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Modify  Owner  and  Operator 

H  R  Lang  and  J  D  Allen 

August  1987 

This  program  allows  the  user  to  modify 

owner  ana  operator  information  in  the 

database. 

owners,  operator,  opown 

none 

none 

ownrmodl ,  ownrmod2,  opermodl,  opermod2 


*/********************************************************************** 


Program: 

Author: 

Date  Written: 

Description: 

Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Modify  Sar  Unit 

H  R  Lang  and  J  D  Allen 

August  1987 

This  program  allows  the  user  to  modify 

sar  unit  data  in  the  database. 

sar,  sarunits 

none 

none 

sunitmod 


*(********************************************************************** 


Program: 
Author: 
Date  Written 
Description: 


Tables  Used: 

Temp  Tables : 
Reports  Used: 
Forms  Used: 


Modify  Vessel  HIN 

H  R  Lang  and  J  D  Allen 

August  1987 

This  program  allows  the  user  to  modify 

vessel  hull  identification  numbers  in 

the  database. 

vessel,  sar,  boarding,  owvsl,  opvsl 

none 

none 

vhinform 


*/********************************************************************** 
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*/*************************************^ 


Program: 
Author : 
Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Add  and  Modify  Vessel  Intelligence 

H  R  Lang  and  J  D  Allen 

August  1987 

This  program  allows  the  user  to  input 

and  modify  vessel  intelligence 

information. 

vslintel 

none 

none 

vintform 


*/***********************************^ 


Program: 

Author: 

Date  Written: 

Description: 


Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Add  and  Modify  Personnel  Intelligence 

H  R  Lang  and  J  D  Allen 

August  1987 

This  proaram  allows  the  user  to  input 

and  modify  personnel  intelligence 

information. 

perintel 

none 

none 

pintform 


4.  SREPORTS.PRG 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

REPORTS  MAIN  MENU  APPLICATION  PROGRAM 

Author:    Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


*(********************************************************************** 


Program: 

Author: 

Date  Written: 

Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Access  Intelligence  Reports 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  intelligence  reports 

master  menu  and  application  programs. 

none 

none 

none 

none 


*(********************************************************************** 


Program: 

Author: 

Date  Written: 

Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Access  Boarding  ReDorts 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  boarding  reports 

master  menu  and  application  programs. 

none 

none 

none 

none 


*( ********************************^ 
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*f ********************************************************************** 


Program: 
Author : 
Date  Written: 
Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used; 
Forms  Used: 


Access  Sar  Reports 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  SAR  reports  master 

menu  and  application  programs. 

none 

none 

none 

none 


*/■********************************************************************** 


Program: 

Author: 

Date  Written: 

Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Access  Vessel  Reports 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  vessel  reports 

master  menu  and  application  programs. 

none 

none 

none 

none 


*/********************************************************************** 


Program: 

Author: 

Date  Written: 

Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Access  Personnel  Reports 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  personnel  reports 

master  menu  and  application  programs. 

none 

none 

none 

none 


******************************************************************* 
5.     INTRPTS.PRG 
*/********************************************************************** 


( 


US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

INTELLIGENCE  REPORTS  MENU  and  APPLICATION  PROGRAMS 

Author:    Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


*/********************************************************************** 


Program: 

Author: 

Date  Written: 

Description: 


Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Personnel  Intelligence  Dump  Program 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  listing  by  date  and 

by  alphabtic  search  of  those  personnel  in 

the  table  PERINTEL  (personnel  intelligence). 

perintel 

persum 

perintel 

none 


■kf ********************************************************************** 
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*/********************************************************************** 

Program:         EPIC  Intelligence  Analysis 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:     August  1987 

Description:      Performs  a  dump  of  all  vessels  in  the 

VSLINTEL  table  within  a  specified  time 
period.   Four  reports  are  generated 
providing  listings  by  EPIC  Code,  by 
stolen  vessels,  and  by  intelligence 
remarks,  and  a  frequency  breakdown 
and  analysis  of  EPIC  Codes. 

Tables  Used:      vslintel 

Temp  Tables:      epicsum,  stolesum,  intelsum,  epictmpl, 

epictmp2,  epictmp 

Reports  Used:     epicsum,  stolesum,  intelsum,  epicrpt 

Forms  Used:       none 

*/********************************************************************** 

Program:         Violation  Vessel  Profile  Intelligence 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:     August  1987 

Description:      This  program  examines  vessel  boardings  to 

create  a  profile  of  vessel  which  violate 

specific  laws  during  a  specified  time  period. 
Tables  Used:      boarding,  vessel,  viols ,'  boattype ,  boatuse, 

constr,  engcomp,  fuelcomp,  hulimat,  boatprop 
Temp  Tables:      bosum,  vslsum,  violsum,  vslmo, 

summaryl,  summary2 ,  summary3,  summary4, 

summary5,  summary6,  summary7,  temp 
Reports  Used:     vtypemo,  vusemo,  vconstmo,  vengmo, 

vfuelmo,  vhullmo,  vpropmo,  vlenftmo, 

vyearmo 
Forms  Used:       none 

***********************************************************************) 
6.     BRDRPTS.PRG 

*/********************************************************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

BOARDING  REPORTS  MENU  and  APPLICATION  PROGRAMS 

Author:    Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

*(******************* *************************************************** 

Program:         Violation  /  Unsafe  Condition  Frequency  Analysis 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:     August  1987 

Description:      This  program  performs  a  statistical  analysis 

of  boarding  violations  and  unsafe  conditions 

within  a  specified  time  period. 
Tables  Used:      boarding 
Temp  Tables:      frqchart,  temp 
Reports  Used:     violfreq,  unsfreq 
Forms  Used:       none 

*/ ********************************************* ** *********************** 
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* ( ********************************************************** 


Program: 

Author: 

Date  Written: 

Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Boarding  Summary  Listing  Program 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  listing  of  the 

BOARDING  table  during  a  specified  time 

Eeriod.  The  report  is  sorted  by  date 
efore  being  printed, 
boarding 
bosum 
boarding 
none 


*c ********************************************************************** 


Program: 

Author: 

Date  Written: 

Description: 


Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Boarding  Major  Grid  Area  Frequency  Program 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  statistical  analysis 

of  Boardings  to  determine  percentage  of  cases 

which  occur  in  areas  specified  by  coordinates 

found  in  the  MAJAREA  table  during  a  specified 

time  period. 

majarea,  boarding 

bosum,  positfrq 

bomajor 

none 


*/********************************************************************** 


Program: 

Author: 

Date  Written: 

Description: 


Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Boarding  Minor  Grid  Area  Frequency  Program 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  statistical  analysis 

of  Boardings  to  determine  percentage  of 

cases  which  occur  in  a  specified  location 

defined  in  the  MINAREA  table  during  a- 

specified  time  period. 

boarding,  minarea 

bosum,  positfrq 

bominor 

none 


*/********************************************************************** 


Program: 

Author: 

Date  Written; 

Description: 


Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Boarding  Small  Boat  Area  Frequency  Program 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  statistical  analysis 

of  Boardings  to  determine  percentage  of  cases 

which  occur  in  the  small  boat  operating  as 

defined  by  Coast  Guard  Group  Monterey's 

OPLAN  during  a  specified  time  period. 

boarding 

temp,  bosum 

smboatrp 

none 


*c ********************************************************************** 
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*/*********************************^ 


Program: 

Author: 

Date  Written: 

Description: 


Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Courtesy  Motorboat  Examinations  (CME's) 

Statistical  Analysis 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  statistical  analysis 

of  vessels  that  were  boarded  to  determine 

the  frequency  of  CME's  and  their  year  of 

issue  during  a  specified  time  period. 

boarding,  vessel 

bosum,  vslsum,  bovslsum,  temp 

cmerpt 

none 


*/********************************^ 


Program: 
Author : 
Date  Written: 
Description: 


Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Daytime  vs.  Nighttime  Frequency  Analysis 

J  D  Allen  and  H  R  Lang 

August  19S7 

This  program  performs  a  statistical  analysis 

of  SAR  cases  and  Boardings  to  determine 

percentage  of  cases  which  occur  in  the 

daytime  vs  those  that  occur  at  night  during 

a  specified  time  period. 

sar,  boarding 

sarsum,  bosum,  temp 

daynignt 

none 


7.     SARRPTS.PRG 


( 


US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

SAR  REPORTS  MENU  and  APPLICATION  PROGRAMS 

Author:    Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


■k  (  ****x**x*********************^ 


Program: 

Author: 

Date  Written: 

Description: 


Tables  Used: 
Temp  Tables  : 
Reports  Used: 
Forms  Used: 


SAR  Major  Grid  Area  Frequency  Analysis 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  statistical  analysis 

of  SAR  cases  to  determine  percentage  of 

cases  which  occur  in  specified  locations  in 

the  table  MAJAREA  during  a  specified  time 

period. 

majarea,  sar 

sarsum,  positfrq 

sarmajor 

none 


*(***********************************^ 
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*/*************************************************** 


Program:  . 

Author: 

Date  Written: 

Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


SAR  Minor  Grid  Area  Frequency  Analysis 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  statistical  analysis 

of  SAR  cases  to  determine  percentage  of 

cases  which  occur  in  locations  specified  by 

coordinates  contained  in  the  table  MINAREA 

during  a  specified  time  period. 

sar,  minarea 

sarsum,  positfrq 

sarminor 

none 


a/**********************************************^*********************** 


Program: 
Author: 
Date  Written 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


SAR  Case  Small  Boat  Area  Frequency  Program 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  statistical  analysis 

of  SAR  Cases  to  determine  percentage  of 

cases  which  occur  in  the  small  boat  operating 

as  defined  by  Coast  Guard  Group  Monterey's 

OPLAN  during  a  specified  time  period. 

sar 

temp,  sarsum 

sarsmbt 

none 


*/****************************************^ 


Program: 

Author: 

Date  Written: 

Description: 


Tables  Used: 
Temp  Tables : 

Reports  Used: 

Forms  Used: 


SAR  Case  Units  Time  Expended  Frequency 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  statistical  analysis 

of  SAR  cases  to  determine  total  time 

expended,  time  to  being  on  scene,  time  to 

being  alongside,  time  involved  in  searches, 

and  time  involved  in  towing.  These  times  are 

analyzed  to  produce  totals,  averages, 

minimums ,  and  maximums  for  a  specific  time 

period. 

sarunits 

sartimel,  sartime2,  sartime3,  sartime4, 

sartime5,  temp 

sartimes 

none 


*/*********************************^ 


Program: 

Author: 
Date  Written 
Description: 


Tables  Used: 
Temp  Tables : 
Reports  Used; 
Forms  Used: 


SAR  Days,  SAR  Months,  SAR  Years  Frequency 

Analysis 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  statistical  analysis 

of  SAR  cases  to  determine  percentage  of 

cases  which  occurred  on  specific  days  of  the 

week,  months  of  the  year  and  years  during  a 

specified  time  period. 

sar 

sarsuml,  sarstat,  sarsum,  temp 

sardates,  sardays 

none 


* ( **********************************************^ 
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*(********************************************************************** 

Program:         Daytime  vs.  Nighttime  Frequency  Analysis 

Author :  J  D  Allen  and  H  R  Lang 

Date  Written:     August  1987 

Description:      This  program  performs  a  statistical  analysis 

of  SAR  cases  and  Boardings  to  determine 
percentage  of  cases  which  occur  in  the 
daytime  vs  those  that  occur  at  night  during 
a  specified  time  period. 

Tables  Used:      sar,  boarding 

Temp  Tables:      sarsum,  bosum,  temp 

Reports  Used:     daynight 

Forms  Used:       none 

*(********************************************************************** 

Program:         SAR  Summary  Listing  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:     August  1987 

Description:      This  program  performs  a  dump  of  the  table  SAR 

of  those  SAR  cases  that  occurred  during  a 
specified  time  period.   The  listing  is  sorted 
by  date  prior  to  being  printed. 

Tables  Used:      sar 

Temp  Tables :      sarsum 

Reports  Used:     sar 

Forms  Used:      none 

*(********************************************************************** 

Program:         Immediate  SAR  Frequency  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:     August  1987 

Description:      This  program  performs  a  statistical  analysis 

of  SAR  cases  to  determine  percentage  of  cases 
which  are  of  immediate  nature  during  a 
specified  time  period. 

Tables  Used:      sar 

Temp  Tables:      sarsum,  temp 

Reports  Used:     immedsar 

Forms  Used:       none 

***********************************************************************) 
8.     VSLRPTS.PRG 

* r ********************************************************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

VESSEL  REPORTS  MENU  and  APPLICATION  PROGRAMS 

Author:    Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

*( ************************************************** 
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*/********************************^ 


Program: 
Author : 
Date  Written: 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Vessel  Summary  Listing  Program 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  dump  of  the  VESSEL 

table.  Listing  entries  are  selected  by 

vessel  type,  vessel  use,  and  by  an 

alphabetic  search. 

vessel,  boattype,  boatuse 

vslsum,  vslsuml,  vslsum2 

vessel 

none 


*/*******************************^ 


Program: 

Author: 

Date  Written: 

Description: 


Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Vessel  -  Owner  Dump  Program 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  listing  sorted  by 

vessel  name  of  those  vessels  which  are 

owned  by  a  specified  group  of  owners.  All 

of  the  vessels  in  the  VESSEL  table  may  be 

selected  or  only  a  group  specified  in  an 

alphabetic  search. 

owvsl,  owners,  vessel 

ownvsls,  ownvslsl,  ownvsls2 

vslowner 

none  . 


* / ******************************^ 


Program: 

Author : 

Date  Written: 

Description: 


Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Vessel  -  Operator  Dump  Program 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  listing  sorted  by 

vessel  name  of  those  vessels  which  are 

operated  by  a  specified  group  of  operators. 

The  entire  list  of  vessels  may  be  printed 

or  a  specified  group  based  on  an  alphabetic 

search. 

opvsl,  operator,  vessel 

opervsls,  opvslsl,  opvsls2 

vsloper 

none 


9.     PRSRPTS.PRG 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

PERSONNEL  REPORTS  MENU  and  APPLICATION  PROGRAMS 

Author:    Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 
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*(********************************************************************** 


Program:  . 

Author: 

Date  Written: 

Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Vessel  Owners  Table  Dump 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  prints  a  sorted  listing  of 

vessel  owners  contained  in  the  database 

based  on  the  owner's  last  name  and  date 

of  birth. 

owners 

ownsuml ,  ownsum2 

owners 

none 


* / ********************************************************************* 


Program: 

Author: 

Date  Written: 

Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Vessel  Operator  Listing 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  listing  of  operators 

of  vessels  contained  in  the  table  OPERATOR. 

They  are  selected  by  date  of  birth  and  by 

the  first  letter  of  the  last  name.   The 

listing  is  sorted  alphabetically  before 

being  printed. 

operator 

opsuml ,  opsum2 

operator 

none 


*/********************************************************************** 


Program: 
Author : 
Date  Written; 
Description: 


Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Operator  -  Vessel  Program 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  listing  sorted  by 

operator  last  name  of  those  vessels  which 

are  used  by  specified  operators.  Operators 

may  be  selected  by  an  alphabetic  search  or 

may  be  selected  in  their  entirety. 

opvsl,  operator,  vessel 

opervsls,  opvslsl,  opvsls2 

opervsls 

none 


*/********************************************************************** 


Program: 
Author: 
Date  Written 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Owner  -  Vessel  Dump  Program 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  listing  sorted  by 

owner  last  name  of  those  owners  which  own 

specific  vessels.   Owners  may  be  selected 

in  their  entirety  or  may  be  selected  by 

an  alphabetic  search. 

owvsl,  owners,  vessel 

ownvsls,  ownvslsl,  ownvsls2 

ownvsls 

none 


************************************************************************ 
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10.  SQUERY.PRG 

* ( ****************************************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

QUERY  MENU  and  APPLICATION  PROGRAMS 

Author:    Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


*/•********************************************************************** 


Program: 
Author : 
Date  Written: 
Description: 

Tables  Used: 

Temp  Tables : 
Reports  Used: 

Forms  Used: 


Query  Vessel 

H  R  Lang  and  J  D  Allen 

August  1987 

This  program  searches  database  for  all 

information  concerning  a  particular  vessel. 

vessel,  sar,  boarding,  owner,  operator, 

owvsl,  opvsl,  vslintel,  perintel 

temp,  vslint,  perint,  bonis,  sarhis 

vslqprn,  boqprn,  sarqprn,  owqprn,  opqprn, 

pintqprn,  vmtqprn 

vslquery,  brdquery,  sarquery,  ownquery, 

opquery,  pintquer,  vintquer 


*/********************************************************************** 


Program: 
Author : 
Date  Written; 
Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Query  Personnel 

H  R  Lang  and  J  D  Allen 

August  1987 

This  program  searches  database  for  all 

information  concerning  a  particular  person, 

including  all  vessels  owned  or  operated 

and  all  historical  information  concerning 

these  vessels. 

vessel,  sar,  boarding,  owner,  operator, 

owvsl,  opvsl,  opown,  vslintel,  perintel 

temp,  vslint,  perint,  bohis,  sarhis, 

vslsown,  vslsopr,  wvsljoin,  pvsljoin 

vslqprn,  boqprn,  sarqprn,  perqprn, 

pintqprn,  vmtqprn 

vslquery,  brdquery,  sarquery,  perquerl, 

perquerz,  pintquer,  vintquer 


a**********************************************************************) 
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11.  SUTILITY.PRG 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

UTILITIES  MENU  and  APPLICATION  PROGRAMS 

Author:    Jon  D.  Allen,  LT,  USCG 

Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 


* / **********************************^ 


Program: 

Author: 

Date  Written: 

Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Initialize  SARSYS 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  removes  all  temporary 

tables  that  can  be  created  by  the  system. 

none 

all 

none 

none 


*/**************************************^ 


Program: 
Author : 
Date  Written 
Description 
Tables  Used: 
Temp  Tables 
Reports  Used: 
Forms  Used: 


Pack  Database 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  packs/compresses  the  database. 

none 

none 

none 

none 


*(******************************** 


Program: 

Author: 

Date  Written: 

Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Backup  Database 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  provides  instructions  for 

backing  up  the  database. 

none 

none 

none 

none 


Restore  Database 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  provides  instructions  for 

restoring  the  database  from  a  backup. 

none 

none 

none 

none 


Program: 

Author: 

Date  Written: 

Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


************************************^ 


) 


243 


APPENDIX  E 
SOURCE  CODE  FOR  ANCILLARY  PROGRAM  MODULES 

The  Search  and  Rescue  and  Enforcement  of  Laws  and  Treaties  Intelligence 
System  (SARELTIS)  Prototype  for  US  Coast  Guard  Group  Monterey  consists  of 
eleven  sets  of  application  programs  written  in  the  R:base  5000  command  language,  and 
sixteen  ancillary  program  modules  written  in  either  the  R:base  5000  command  language 
or  as  DOS  batch  or  data  files.  All  of  these  programs  have  access  to  one  common 
relational  database  structure,  named  SARSYS. 

This  appendix  contains  the  source  code  for  the  sixteen  ancillary  program  modules 
of  SARELTIS.   These  modules  include  the  following: 

RESTBRD.cmd  -  Runs  the  Boarding  Reports  iMenu  Program 
RESTINPT.cmd  -  Runs  the  Data  Entry  Menu  Program 
RESTINT.cmd  -  Runs  the  Intelligence  Reports  Menu  Program 
RESTMAIN.cmd  -  Runs  the  Main  Menu  Program 
RESTMOD.cmd  -  Runs  the  Data  Modification  Menu  Program 
RESTPRS.cmd  -  Runs  the  Personnel  Reports  Menu  Program  ' 
RESTQRY.cmd  -  Runs  the  Query  Menu  Program 
RESTRPTS.cmd  -  Runs  the  Reports  Master  Menu  Program 
RESTSAR.cmd  -  Runs  the  Sar  Reports  Menu  Program 
RESTUTLY.cmd  -  Runs  the  Utilities  Menu  Program 
RESTVSL.cmd  -  Runs  the  Vessel  Reports  Menu  Program 
STARTUP.BIN  -  Runs  the  Title  Page  and  Security  Program 
RBASE.DAT  -  Runs  Startup.bin  when  R:base  is  loaded 
SARSYS.BAT  -  Automatically  loads  application  from  main  directory 
BACKDBMS.BAT  -  Batch  file  to  backup  the  database  and  programs 
RESTDBMS.BAT  -  Batch  file  to  restore  the  database  and  programs 
The  source  code  for  the  application  program  sets  is  contained  in  Appendix  F  through 
Appendix  P.    All  programs  for  this  project  were  developed  by  the  writers.    Internal 
formats  for  the  Reports  and  Entry/Edit  forms  are  contained  within  the  R:base  5000 
database  structure  itself  and  were  considered  inappropriate  for  listing. 
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*/********************************************************************** 


Program: 
Author: 
Date  Written 
Description 
Tables  Used 
Temp  Tables 
Reports  Used 
Forms  Used: 


RESTBRD . cmd 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  boarding  reports  menu 

none 

none 

none 

none 


***********************************************************************) 

run  brd  main  in  brdrpts.apx 
*(  end  T 


* i ****************************************** 


Program: 
Author: 
Date  Written: 
Description: 
Tables  Used: 
Temp  Tables 
Reports  Used: 
Forms  Used: 


RESTINPT.cmd 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  input  main  menu, 

none 

none 

none 

none 


A**********************************************************************' 


run  inpmain  in  sentry. apx 
*(  end  ) 


*/********************************************************************** 


Program: 
Author: 
Date  Written: 
Description: 
Tables  Used: 
Temp  Tables 
Reports  Used: 
Forms  Used: 


RESTINT.cmd 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  intelligence  reports  menu. 

none 

none 

none 

none 


*********************************************************************** 


) 


run  int  main  in  intrpts.apx 
*(  end  T 


*(********************************************************************** 


Program: 
Author: 
Date  Written 
Description 
Tables  Used 
Temp  Tables 
Reports  Used 
Forms  Used: 


RESTMAIN.cmd 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  main  menu  of  the  system, 

none 

none 

none 

none 


*********************************************************************** 


) 


run  sarsys  in  sarsys.apx 
*(  end  ) 
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*/********************************************************************** 


Program: 
Author: 
Date  Written 
Description 
Tables  Used 
Temp  Tables 
Reports  Used 
Forms  Used: 


RESTMOD.cmd 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  modify  main  menu. 

none 

none 

none 

none 


***********************************************************************' 


run  modmain  in  modify. apx 
*(  end  ) 


*/•********************************************************************* 


Program: 
Author: 
Date  Written 
Description 
Tables  Used 
Temp  Tables 
Reports  Used 
Forms  Used: 


RESTPRS . cmd 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  personnel  reports  menu. 

none 

none 

none 

none 


5k**********************************************************************' 


run  prs  main  in  prsrpts.apx 
*(  end  J 


*/********************************************************************** 


Program: 
Author: 
Date  Written: 
Description: 
Tables  Used: 
Temp  Tables 
Reports  Used: 
Forms  Used: 


RESTQRY.cmd 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  modify  main  menu. 

none 

none 

none 

none 


***********************************************************************) 

run  qrymain  in  squery.apK 
*(  end  ) 


*/********************************************************************** 


Program: 
Author: 
Date  Written: 
Description: 
Tables  Used: 
Temp  Tables 
Reports  Used: 
Forms  Used: 


RESTRPTS.cmd 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  reports  main  menu, 

none 

none 

none 

none 


*********************************************************************** \ 


run  rptmain  in  sreports.apx 
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*(  end  ) 


*/*********************************^ 


Program: 
Author: 
Date  Written 
Description: 
Tables  Used: 
Temp  Tables 
Reports  Used: 
Forms  Used: 


RESTSAR.cmd 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  sar  reports  menu, 

none 

none 

none 

none 


run  sar_main  in  sarrpts.apx 
*(  end  J 


*(******************************************^ 


Program: 
Autnor : 
Date  Written; 
Description: 
Tables  Used: 
Temp  Tables 
Reports  Used: 
Forms  Used: 


RESTUTLY.cmd 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  utility  main  menu. 

none 

none 

none 

none 


*******************************^ 


run  utlmain  in  sutility.apx 
*(  end  )  • 


* ( *****************************^ 


Program: 
Author: 
Date  Written 
Description 
Tables  Used 
Temp  Tables 
Reports  Used 
Forms  Used: 


RESTVSL.cmd 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  vessel  reports  menu. 

none 

none 

none 

none 


**********************************^ 


run  vsl  main  in  vslrpts.apx 
*(  end  T 


*/**********************************^ 


Program: 

Author.- 

Date  Written; 

Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


STARTUP. prg  (uncompiled  version  of  STARTUP.BIN) 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  displays  the  title  screen  and 

verifies  user  access. 

none 

none 

none 

none 


247 


********************************^ 


set  error  messages  off 

set  escape  off 

set  messages  off 

newpage 

clear  all  variables 


3 
ii 

5 


8 
ii 

9 


i 

10 

>i 

14 

ii 

15 

ii 

16 


5 
5 
5 
5 
5 


WELCOME 
This  is  the 
Search  &  Rescue  / 
Enforcement  of  Laws  and  Treaties 
Intelligence  Information  System  (SARELTIS) 
Authors:  LT  Jon  D.  Allen,  US  Coast  Guard 
LT  Heidi  R.  Lang,   US  Navy 
•  Date:  September  1987 

Please  press  any  key  to  continue 


write 
"  at 
write 
"  at 
write 
"  at 
write 
"  at 
write 
"  at 
write 
11  at 
write 
"  at 
write 
"  at 
write 

"  at  22 
pause 
newpage 

set  var  username  text 
set  var  userpass  text 
set  var  validusr  text 
set  var  validusr  to  no 
set  var  chances  integer 
set  var  chances  to  3 
set  error  messages  on 
while  validusr  eq  no  then 

write  "Please  enter  your  user  name  and  your  user  password"  at  3  1 
fillin  username  using  "User  Name:  "  at  5  20 
fillin  userpass  using  "Password:  "  at  6  21 
set  error  messages  off 
newpage 

if  username  eg  "*****"  and  userpass  eq  "******"  then 
set  var  validusr  to  yes 
break 
endif 

if  username  eg  "***"  and  userpass  eq  "******"  then 
set  var  validusr  to  yes 
break 
endif 

set  var  chances  to  .chances  -  1 
if  chances  le  0  then 
newpage 

set  var  count  to  20 
while  count  ne  0  then 

write  "Improper  LOGON  attempt... 
set  var  count  to  .count  -  1 
endwhile 
newpage 
exit 
endif 

write  "Invalid  user  name  or  password, 
endwhile 

if  username  eg  sysop  then 
user  sarsys 
newpage 

write  "Initializing  SARELTIS"  at  10  25 
run  sarsys  in  sarsys. apx 
endif 

if  username  eg  ood  then 
newpage 
write  "Initializing  SARELTIS' 


SARELTIS  Terminated!"  at  10  1 


Please  try  again."  at  10  1 


at  10  25 
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run  sarsys  in  sarsys.apx 
endif 
exit 
*(  end  ) 


*/********************************************************************** 

Program:  RBASE.DAT 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  loads  the  title  screen  and  security 

module  when  R:base  5000  is  loaded. 

Tables  Used:  none 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  none 

***********************************************************************) 


run  startup.bin 

exit 

*(  end  ) 


*(********************************************************************** 

Program :  SARSYS . BAT 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:       This  file  loads  R:base  and  enters  the 

SARELTIS  application  directly  from  the 

main  directory. 
Tables  Used:       none 
Temp  Tables:       none 
Reports  Used:      none 
Forms  Used:       none 

************************************** 

cd  c:\dbdir 
path  =  C:\r5k 
rbase 
*(   end  ) 


*(********************************************************************** 

Program:  BACKDBMS.BAT 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:       This  file  performs  a  backup  of  the 

database  structure  and  all  application 

programs. 
Tables  Used:       none 
Temp  Tables :       none 
Reports  Used:      none 
Forms  Used:       none 

*********************************************************************** \ 
path  =  C:  ;C:\util 

cd  \dbdir 
backup  *.apx  a: 
backup  sarsys?. rbs  a: 
backup  *.cmd  a: 
backup  startup.bin 
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backup  rbase.dat 

path  =  c:\dbdir;  c:\r5k 

rbase 

*(  end  ) 


Program:  RESTDBMS.BAT 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:      This  file  restores  a  backup  copy  of 

the  database  structure  and  application 

programs . 
Tables  Used:       none 
Temp  Tables :      none 
Reports  Used:      none 
Forms  Used:       none 

path  =  c:\dbdir,- c:\util 
cd  \dbdir 
restore  a:  \dbdir 
restore  a:  \dbdir 
restore  a:  \dbdir 
restore  a:  \dbdir 
restore  a:  \dbdir 
path  =  c:\dbdir  ,-c  :\r5k 
rbase 
*(  end  ) 
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APPENDIX  F 
SARSYS  SOURCE  CODE 

$COMMAND 
SARSYS 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

MAIN  MENU  and  STARTUP  APPLICATION 

Author:  Jon  D.  Allen,  LT,  USCG 
Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

set  escape  off 

set  messages  off 

set  error  messages  off 

open  sarsys 

clear  all  variables 

run  INITIAL  in  sutility.apx 

set  var  pickl  integer 

newpage 

choose  pickl  from  mainmenu  in  sarsys. apx 

if  pickl  eq  0  then 

guit  to  restmain.cmd 
endif 
if  pickl  eq  1  then 

run  SINPUTS  in  sarsys. apx 

quit  to  restmain.cmd 
endif 
if  pickl  eg  2  then 

run  MODIFY  in  sarsys. apx 

quit  to  restmain.cmd 
endif 
if  pickl  eq  3  then 

run  QUERY  in  sarsys. apx 

quit  to  restmain.cmd 
endif 
if  pickl  eq  4  then 

run  SREPORTS  in  sarsys. apx 

quit  to  restmain.cmd 
endif 
if  pickl  eq  5  then 

run  UTILITY  in  sarsys. apx 

quit  to  restmain.cmd 
endif 
if  pickl  eq  6  then 

run  ADHOC  in  sarsys. apx 

quit  to  restmain.cmd 
endif 
if  pickl  eq  7  then 

set  var  exitprg  text 

set  var  exitprg  to  yes 
endif 
write  "You  have  completed  this  session...."  at  10  1 

write  "REMEMBER  Do  frequent  backups!"  at  12  1 

write  "Please  press  any  key  to  exit"  at  18  1 
pause 
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newpage 

set  escape  on 

set  messages  on 

set  error  messages  on 

exit 

$menu 

mainmenu 

column  SARELTIS  ---  MASTER  MENU 

INPUT  INFORMATION 

MODIFY  INFORMATION 

QUERY  INFORMATION 

REPORTS 

UTILITIES 

AD  HOC  QUERIES 

EXIT  SARELTIS 

*<  end  ) 


$ COMMAND 

SINPUTS 
*(********************************************************************** 

Program:  Access  Input  Module 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

This  program  calls  the  input  master  menu. 

none 

none 


Description 

Tables  Used 

Temp  Tables 

Reports  Used:      none 

Forms  Used:       none 

**************************************** 

run  INPMAIN  in  SENTRY. apx 

return 

*(  end  ) 


$ COMMAND 

MODIFY 
*(********************************************************************** 

Program:  Access  Modify  Module 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

This  program  calls  the  modify  master  menu. 

none 

none 


Description 
Tables  Used 
Temp  Tables 
■  Reports  Used:      none 
Forms  Used:       none 

***********************************************************************) 

run  MODMAIN  in  MODIFY. apx 

return 

*(  end  ) 


$ COMMAND 

OUERY 

********************************************************************** 


( 


Program:  Access  Query  Module 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  calls  the  query  master  menu, 

Tables  Used:  none 
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Temp  Tables : 
Reports  Used: 
Forms  Used: 


none 
none 
none 


********************************************************** 

run  QRYMAIN  in  SQUERY.apx 

return 

*(  end  ) 


$ COMMAND 

SREPORTS 
*(********************************************************************** 


Program: 
Author: 
Date  Written: 
Description: 
Tables  Used: 
Temp  Tables 
Reports  Used: 
Forms  Used: 


Access  Reports  Module 

J  D  Allen  and  H  R  Lang 

August  1S87 

This  program  calls  the  reports  master  menu, 

none 


none 
none 
none 


***********************************************************************' 

run  RPTMAIN  in  SREPORTS. apx 

return 

*(  end  ) 


$COMMAND 

UTILITY 

* / ********************************************************************** 


Program: 
Author: • 
Date  Written: 
Description: 
Tables  Used: 
Temp  Tables 
Reports  Used: 
Forms  Used: 


Access  Utilities  Module 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  utility  master  menu. 

none 

none 

none 

none 


************************************************************************ 


run  UTLMAIN  in  SUTILITY.apx 

return 

*(  end  ) 


$ COMMAND 

ADHOC 
*(********************************************************************** 


Program: 

Author: 

Date  Written: 

Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Access  Ad  Hoc  Module 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  allows  the  user  to  exit  the 

menus  to  the  RBase  5000  command  prompt  to 

execute  ad  hoc  queries. 

none 

none 

none 

none 
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************************************************************** 

newpage 

write  "You  are  now  exiting  the  menu  system  of  SARELTIS.  Before  + 

exercising  "  at  4  1 

write  "this  option,   you  should  become  very  familiar  with  RBase  5000  "  ■ 

at  5  1 
write  "query  commands  found  in  the  reference  manuals  and  the  actual  "  + 

at  6  1 
write  "database  structure."  at  7  1 

write  "Do  you  wish  to  return  to  the  SARELTIS  menus?  (Y)"  at  10  1 
set  var  choice  text 
fillin  choice  using  "("  at  10  46 
if  choice  eq  n  then 

newpage 

write  "You  are  now  exitting  the  SARELTIS  menu  system"  at  8  10 

write  "If  you  wish  to  return  to  the  menu  system,  please"  at  10  10 

write  "type   RUN  STARTUP    at  the  RBase  5000  prompt."  at  11  10 

write  "Please  press  any  key  to  continue"  at  16  10 

pause 

set  escape  on 

set  messages  on 

set  error  messages  on 

clear  all  variables 

set  bell  on 

newpage 

quit 
endif 
return 
*(  end  ) 
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APPENDIX  G 
SENTRY  SOURCE  CODE 

$ COMMAND 
INPMAIN 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

INPUT  MASTER  MENU  and  INPUT  PROGRAMS 

Author:  Jon  D.  Allen,  LT,  USCG 
Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

newpage 

set  messages  off 

set  escape  off 

clear  all  variables 

set  var  pick2  integer 

newpage 

choose  pick2  from  inp_menu  in  sentry. apx 

if  pickz  eq  0  then 

quit  to  restinpt.cmd 
endif 
if  pick2  eq  1  then 

run  add_sar  in  sentry. apx 

quit  to  restinpt.cmd 
endif 
if  pick2  eq  2  then 

run  add_sbd  in  sentry. apx 

quit  to  restinpt.cmd 
endif 
if  pick2  eq  3  then 

run  add_sut  in  sentry. apx 

quit  to  restinpt.cmd 
endif 
if  pick2  eq  4  then 

run  add_brd  in  sentry. apx 

quit  to  restinpt.cmd 
endif 
if  pick2  eq  5  then 

run  add_ownr  in  sentry. apx 

quit  to  restinpt.cmd 
endif 
if  pick2  eq  6  then 

run  am_vint  in  modify. apx 

quit  to  restinpt.cmd 
endif 
if  pick2  eq  7  then 

run  am_pint  in  modify. apx 

quit  to  restinpt.cmd 
endif 
if  pick2  eq  8  then 

quit  to  restmain.cmd 
endif 

quit  to  restinpt.cmd 
return 
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$menu 

inpjnenu 

column  SARELTIS  —  INPUT  MENU 

INPUT  SAR  INFORMATION  (NO  BOARDING) 

INPUT  SAR  INFORMATION  WITH  BOARDING 

INPUT  MULTIPLE  SAR  UNITS 

INPUT  BOARDING  INFORMATION 

INPUT  MULTIPLE  VESSEL  OWNERS 

INPUT  VESSEL  INTELLIGENCE 

INPUT  PERSONNEL  INTELLIGENCE 

RETURN  TO  MAIN  MENU 

*(  end  ) 


$ COMMAND 

ADD  SAR 

*  /  ********************************* 

Program:  Add  Sar 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:      July  1937 

Description:       This  program  allows  the  user  to  input 

sar  case  information. 
Tables  Used:      vessel,  sar,  owners,  operators,  owvsl,  opvsl 
Temp  Tables:       none 
Reports  Used:      none 
Forms  Used:        sarforml,  sarform2,  sarformS,  sarform4, 

sarform5,  sarformb,  sarf orm7 ,  sarform8, 

sarform9 

*********************************************************************** \ 

set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.   Please  stand  by  "  at  10  10 

clear  all  variables 
set  null  ? 
set  var  pg  to  1 

^(initialize  edit  and  load  control  variables) 
set  var  review  to  N 
set  var  loadmenu  to  N 
label  begin 

set  var  backup  to  N  . 

set  var  pgcount  to  0 
while  pg"  gt  0  then  *(main  loop) 
newpage 
if  pg  eq  1  then 

*(enter  general  sar  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  1 
set  var  vsardate  to  .tdate 
set  var  vsartime  to  12:00:00 
set  var  vsariat  to  0.0 
set  var  vsarlona  to  0.0 
set  var  vdistofr  to  0 
set  var  vsarpob  to  0 
endif 

write  "Press  [ESC]  to  quit  or  [PGDN]  to  move  down  a  page"  at  1  1 
draw  sarforml  with  all  at  3 
if  review  eq  N  then 

edit  var  return  esc  pgdn 
else 

edit  var  vfoldno  vucn  vmucn  vsardate  vsarday  vsartime  vsarnod  + 
vimmed  vsariat  vsarlong  vdistoff  vsarpob  return  esc  pgdn 
endif 
endif 
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if  pg  eq  2  then 

*(enter  vessel  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  2 
while  wslhin  exists  then 

set  pointer  #1  el  for  vessel  where  vslhin  =  .wslhin 

newpage 

if  el  eq  0  then 

*(vessel  exists  in  database) 

set  var  wslno  to  vslno  in  #1 

set  var  wslname  to  vslname  in  #1 

set  var  wslmake  to  vslmake  in  #1 

set  var  vvslmod  to  vslmodel  in  #1 

set  var  wslyear  to  vslyear  in  #1 

set  var  wslton  to  vsltons  in  #1 

set  var  wslft  to  vsllenft  in  #1 

set  var  wslin  to  vsllenin  in  #1 

set  var  wslhp  to  vslhp  in  #1 

set  var  wsluse  to  vsluse  in  #1 

set  var  wsltype  to  vsltype  in  #1 

set  var  wslprop  to  vslprop  in  #1 

set  var  wslhull  to  vslnull  in  #1 

set  var  wsleng  to  vsleng  in  #1 

set  var  wslfuel  to  vslfuel  in  #1 

set  var  vconstr  to  vslconst  in  #1 

set  var  vdecal  to  cmedecal  in  #1 

set  var  vcmeyear  to  cmeyear  in  #1 

set  var  voffno  to  vslofrno  in  #1 

set  var  vhome  to  homeport  in  #1 

set  var  vcall  to  vslcall  in  #1 

set  var  walue  to  vslvalue  in  #1 

set  var  vsuper  to  vslsuper  in  #1 

set  var  vmasts  to  vslmasts  in  #1 

set  var  vsailno  to  sailno  in  #1 

set  var  vhlcolor  to  hlcolor  in  #1 

set  var  vtrcolor  to  trcolor  in  #1 

set  var  vslcolor  to  slcolor  in  #1 

set  var  vcbcolor  to  cbcolor  in  #1 

set  var  vdkcolor  to  dkcolor  in  #1 

set  var  vmarks  to  vslmarks  in  #1 

set  var  vl  to  vslno  in  #1 

set  var  v2  to  vslname  in  #1 

set  var  v3  to  . slhin  in  #1 

set  var  v4  to  vslmake  in  #1 

set  var  v5  to  vslmodel  in  #1 

set  var  v6  to  vslyear  in  #1 

set  var  v7  to  vsltons  in  #1 

set  var  v8  to  vsllenft  in  #1 

set  var  v9  to  vsllenin  in  #1 

set  var  vlO  to  vslhp  in  #1 

set  var  vll  to  vsluse  in  #1 

set  var  vl2  to  vsltype  in  #1 

set  var  vl3  to  vslprop  in  #1 

set  var  vl4  to  vslnull  in  #1 

set  var  vl5  to  vsleng  in  #1 

set  var  vl6  to  vslfuel  in  #1 

set  var  vl7  to  vslconst  in  #1 

set  var  vl8  to  cmedecal  in  #1 

set  var  vl9  to  cmeyear  in  #1 

set  var  v20  to  vsloffno  in  #1 

set  var  v21  to  homeport  in  #1 

set  var  v22  to  vslcall  in  #1 

set  var  v23  to  vslvalue  in  #1 

set  var  v24  to  vslsuper  in  #1 

set  var  v25  to  vslmasts  in  #1 

set  var  v26  to  sailno  in  #1 

set  var  v27  to  hlcolor  in  #1 

set  var  v28  to  trcolor  in  #1 

set  var  v29  to  slcolor  in  #1 

set  var  v30  to  cbcolor  in  #1 
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set  var  v31  to  dkcolor  in  #1 
set  var  v32  to  vslmarks  in  #1 
else 

set  var  wsltype  text 
set  var  wsltype  to  9 
set  var  wsluse  text 
set  var  wsluse  to  0 
set  var  wslyear  text 
set  var  wslyear  to  1901 
set  var  wslhp  text 
set  var  wslhp  to  0 
set  var  wslft  to  0 
set  var  wslin  to  0 
set  var  wslton  to  0 
set  var  walue  to  $0 
set  var  vdecal  text 
set  var  vcmeyear  text 
endif 
break 
endwhile 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  sarform2  with  all  at  3 

edit  var  wslno  voffno  vhome  vcall  wsltype  wsluse  walue  + 
wslmake  wslmod  wslyear  wslft  wslin  wslhp  wslton  return  + 
esc  pgup  pgdn 
endif 
if  pg  eq  3  then 


*(ente*r  vessel  information) 


review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  3 
if  el  ne  0  then 

set  var  wslhull  text 
set  var  wslhull  to  3 
set  var  wslfuel  text 
set  var  wslfuel  to  0 
set  var  wsleng  text 
set  var  wsleng  to  0 
set  var  vconstr  text 
set  var  vconstr  to  0 
set  var  wslprop  text 
set  var  wslprop  to  9 
set  var  vslcolor  to  unk 
set  var  vhlcolor  to  unk 
set  var  vtrcolor  to  unk 
set  var  vcbcolor  to  unk 
set  var  vdkcolor  to  unk 
endif 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  sarform3  with  all  at  3 

edit  var  wslhull  wslfuel  wsleng  vconstr  wslprop  vsuper  vmasts  + 
vslcolor  vsailno  vhlcolor  vtrcolor  vcbcolor  vdkcolor  vmarks  + 
return  esc  pgup  pgdn 
endif 
if  pg  eq  4  then 

*(enter  owner  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  4 
set  var  vowlname  to  unk 
set  var  vowfname  to  unk 

write  "Press  [PGDN]  after  entering  initial  information  to  check 
if"  at  1  5 

write  "owner  exists  in  database.  Press  [ESC]  to  quit"  at  2  10 
draw  sarform4  with  all  at  4 
edit  var  return  esc  pgdn 
endif 
if  ttreturn  ne  esc  then 
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if  review  eg  N  and  backup  eq  N  then 

while  vowlname  exists  and  vowfname  exists  then 

set  pointer  #2  e2  for  owners  where  ownlname  =  .vowlname  and  + 

ownfname  =  .vowfname 

newpage 

while  e2  eg  0  then 

*(owner  last/first  name  exists  in  database) 
set  var  vowmi  to  ownmi  in  #2 
set  var  vowdob  to  owndob  in  #2 
set  var  vowaddr  to  ownaddr  in  #2 
set  var  vowcity  to  owncity  in  #2 
set  var  vowst  to  ownstate  in  #2 
set  var  vowzip  to  ownzip  in  #2 
set  var  vowtelno  to  owntelno  in  #2 
newpage 

draw  sarform4  with  all  at  3 
draw  sarform5  with  all  at  8 
write  "Correct  owner?  (N)"  at  21  20 
fillin  owfound  using  "("  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
set  var  owl  to  .vowlname 
set  var  ow2  to  .vowfname 
set  var  ow3  to  ownmi  in  #2 
set  var  ow4  to  ownaddr  in  #2 
set  var  ow5  to  owncity  in  #2 
set  var  ow6  to  ownstate  in  #2 
set  var  ow7  to  ownzip  in  #2 
set  var  ow8  to  owntelno  in  #2 
set  var  ow9  to  owndob  in  #2 
set  var  owlO  to  ownid  in  #2 
set  var  vownid  to  ownid  in  #2 
break 
endif 

next  #2  e2 
endwhile 
if  e2  ne  0  then 
newpage 

write  "This  owner  does  not  exist  in  the  database"  at  5  5 
fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 
clear  vowmi 
clear  vowaddr 
clear  vowcity 
set  var  vowst  to  CA 
clear  vowzip 
clear  vowtelno 

set  var  vowdob  to  01/01/1901 
compute  vmaxown  as  max  ownid  from  owners 
if  vmaxown  fails  then 

set  var  vmaxown  to  0 
endif 

set  var  vownid  to  .vmaxown  +  1 
endif 
break 
endwhile 
endif 
newpage 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  sarform4  with  all  at  3 
draw  sarform5  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
endif 
endif 
if  pg  eq  5  then 

*(enter  operator  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  5 

write  "Press  [PGDN]  after  entering  initial  information  to  check 
if"  at  1  5  y 

write  "operator  exists  in  database.   Press  [ESC]  to  quit"  at  2  10 
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set  var  voplname  to  .vowlname 
set  var  vopfname  to  .vowfname 
draw  sarform6  with  all  at  4 
edit  var  return  esc  pgdn 
endif 
if  #return  ne  esc  then 

if  review  eg  N  and  backup  eq  N  then 

while  voplname  exists  and  vopfname  exists  then 

set  pointer  #3  e3  for  operator  where  oplname  =  .voplname  + 

and  op f name  =  .vopfname 

newpage 

while  e3  eq  0  then 

*(operator  last/first  name  exists  in  database) 

set  var  vopmi  to  opmi  in  #3 

set  var  vopdob  to  opdob  in  #3 

set  var  vopaddr  to  opaddr  in  #3 

set  var  vopcity  to  opcity  in  #3 

set  var  vopst  to  opstate  in  #3 

set  var  vopzip  to  opzip  in  #3 

set  var  voptelno  to  optelno  in  #3 

set  var  vopcrse  to  opcourse  in  #3 

newpage 

draw  sarform6  with  all  at  3 

draw  sarform7  with  all  at  8 

write  "Correct  operator?  (N)"  at  21  20 

fillin  opfound  using  "("  at  21  38 

if  opfound  exists  and  opfound  eq  Y  then 

set  var  opl  to  .voplname 

set  var  op2  to  .vopfname 

set  var  op3  to  opmi  in  #3 

set  var  op4  to  opaddr  in  #3 

set  var  op5  to  opcity  in  #3 

set  var  op6  to  opstate  in  #3 

set  var  op7  to  opzip  in  #3 

set  var  op8  to  optelno  in  #3 

set  var  op9  to  opdob  in  #3 

set  var  oplO  to  opcourse  in  #3 

set  var  opll  to  opid  in  #3 

set  var  vopid  to  opid  in  #3 

break 
endif 
next  #3  e3 
endwhile 
if  e3  ne  0  then 
newpage 

write  "This  operator  does  not  exist  in  the  database"  at  5  5 
fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 
if  vowlname  eq  .voplname  and  vowfname  eq  .vopfname  then 

set  var  vopmi  to  .vowmi 

set  var  vopaddr  to  .vowaddr 

set  var  vopcity  to  .vowcity 

set  var  vopst  to  .vowst 

set  var  vopzip  text 

set  var  vopzip  to  .vowzip 

set  var  voptelno  text 

set  var  voptelno  to  .vowtelno 

set  var  vopdob  to  .vowdob 
else 

clear  vopmi 

clear  vopaddr 

clear  vopcity 

set  var  vopst  to  CA 

clear  vopzip 

clear  voptelno 

set  var  vopdob  to  01/01/1901 
endif 

clear  vopcrse 

compute  vmaxop  as  max  opid  from  operator 
if  vmaxop  fails  then 

set  var  vmaxop  to  0 
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endif 

set  var  vopid  to  .vmaxop  +  1 
endif 
break 
endwhile 
endif 
newpage 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  sarform6  with  all  at  3 
draw  sarform7  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
endif 
endif 
if  pg  eq  6  then 

*(enter  sar  weather  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  6 
set  var  vsunrise  to  06:00:00 
set  var  vsunset  to  19:00:00 
set  var  vceiling  to  0 
set  var  vclouds  to  0 
set  var  wisdist  to  0 
set  var  vwinddir  to  0 
set  var  vwindspd  to  0 
set  var  vseas  to  0 
set  var  vswells  to  0 
endif 

write  "Press  [ESC]  to  quit  or  [PGUP]  to  move  up  a  page"  at  1  1 
draw  sarform9  with  all  at  3 

edit  var  vsunrise  vsunset  vceiling  vclouds  wisdist  vwinddir  + 
vwindspd  vseas  vswells  return  esc  pgup 
set  var  loadmenu  to  "Y" 
endif 

if  ^return  eq  pgup  then 
set  var  backup  to  Y 
if  pg  gt  1  then 

set  var  pg  to  .pg  -  1 
else 

set  var  pg  to  1 
endif 
endif 

if  #return  eq  pgdn  then 
if  pg  It.  6  then 

set  var  pg  to  .pg  +  1 
if  pgcount  It  .pg  then 

set  var  backup  to  N 
endif 
else 

set  var  pg  to  6 
endif 
endif 

if  #return  eq  esc  then 
set  var  backup  to  N 
set  var  pg  to  0 
endif 
endwhile  *(end  of  main  loop) 
newpage 

write  "Program  loading  in  progress.   Please  stand  by  "  at  10  10 

if  loadmenu  eq  "Y"  then 
set  var  choice  to  0 

while  choice  It  1  or  choice  gt  3  then 
newpage 
write  "Data  Load  Options"  at  2  20 

write  " "  at  3  20 

write  "Enter:"  at  5  20 

write  "1-To  load  the  data  into  the  database"  at  6  20 

write  "2-To  ignore  the  data  entered"  at  7  20 

write  "3-To  go  back  and  verify  data  entered"  at  8  20 

write  "Your  choice:  "  at  10  20 
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load  vessel 

.vl    .v2    .v3    .v4    .v5 

.v6 

.vl4    .vl5    .vl6    .vl7 

.vl8 

,v25    .v26    .v27    .v28 

.v29 

fillin  choice  using  "  "  at  10  33 

newpage 

if  choice  eq  1  then 

*(test  for  required  information) 

if  vsardate  exists  and  vfoldno  exists  and  vucn  exists  and  + 
wslname  exists  and  vsarlat  exists  and  vsarlong  exists  and  + 
vsarnod  exists  and  vimmed  exists  then 
set  error  messages  off 
if  el  eq  0  then 

*(vessel  exists  in  database) 
write  "changing  values  in  vessel" 
delete  rows  from  #1 
else 

write  "loading  vessel" 
endif 
load  vessel 

.wslno  .wslname  .vvslhin  .wslmake  .wslmod  .wslyear  + 
.wslton  .wslft  .wslin  .wslhp  .wsluse  .wsltype  + 
.wslprop  .wslhull  .vvsleng  .vvslfuel  .vconstr  .vdecal  + 
.vcmeyear  .voffno  .vhome  .vcall  .walue  .vsuper  .vmasts  + 
.vsailno  .vhlcolor  .vtrcolor  .vslcolor  .vcbcolor  .vdkcolor  +. 
.vmarks 
end 
if  el  eq  0  then 

set  pointer  #1  el  for  vessel  where  vslhin  eq  .v3 
if  el  ne  0  then 

,v7  .v8  .v9  .vlO  .vll  .vl2  .vl3  + 
.vl9  .v20  .v21  .v22  .v23  .v24  + 
.v30  .v31  .v32 
end 
endif 
endif 

set  pointer  #1  el  for  sar  where  folderno  =  .foldno 
if  el  eq  0  then 

set  var  difsar  to  "F" 

set  var  si  to  sardate  in  #1 

set  var  s2  to  sartime  in  #1 

set  var  s3  to  sarlat  in  #1 

set  var  s4  to  sarlong  in  #1 

set  var  s5  to  sarnod  in  #1 

set  var  s6  to  sarvhin  in  #1 

if  si  ne  .vsardate  or  s2  ne  .vsartime  or  s3  ne  .vsarlat  or  + 

s4  ne  .vsarlong  or  s5  ne  .vsarnod  or  s6  ne  .vvslhin  then 

set  var  difsar  to  "T" 
endif 
else 

set  var  difsar  to  "T" 
endif 

if  difsar  eq  T  then 
write  "loading  sar" 
load  sar 

.vfoldno  .vucn  .vmucn  .vsardate  .vsarday  .vsartime  + 
.vsunrise  .vsunset  .vsarnod  .vsarpob  .vvslhin  .vsarlat  + 
.vsarlong  .vdistoff  .vimmed  .vwinddir  .vwindspd  .wisdist  + 
.vclouds  .vceiling'  .vseas  .vswells 
end 
endif 

write  "loading  owvsl" 
load  owvsl 

.vvslhin  .vownid 
end 

v;rite  "loading  opvsl" 
load  opvsl 

.vvslhin  .vopid 
end 
if  e2  eq  0  then 

*(owner  exists  in  database) 
write  "changing  values  in  owner" 
delete  rows  from  #2 
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.vowfname  .vowmi  .vowaddr  .vowcity  .vowst  .vowzip  + 
.vowdob  .vownid 


ow4  .ow5  .ow6  .  ow7  .ow8  .ow9  .  owlO 


else 

write  "loading  owner" 
endif 
load  owners 

.vowlname 

.vowtelno 
end 
if  e2  eq  0  then 

set  pointer  #2  e2  for  owners  whe  ownid  eq  .owlO 

if  e2  ne  0  then 
load  owners 

•owl  .ow2  .ow3 
end 

endif 
endif 
if  e3  eq  0  then 

^(operator  exists  in  database) 

write  "changing  values  in  operator" 

delete  rows  from  #3 
else 

write  "loading  operator" 

set  var  vopcrse  text 
endif 
load  operator 

.voplname  .vopfname  .vopmi  .vopaddr 

.voptelno  .vopdob  .vopcrse  .vopid 
end 
if  e3  eq  0  then 

set  pointer  #3  e3  for  operator  where  opid  eq  .opll 

if  e3  ne  0  then 
load  operator 

. opl*  .op2  .op2  .op3  .op4  .op5  .op6  .op7  .op8  .op9  . oplO  + 
.opll 
end 

endif 
endif 

set  error  messages  on 
write  "   ". 

write  "Return  to  correct  data  entered?  (Y)"  at 
write  "Note:   correct  only  errors  indicated  by 
at  22  5 
fillin  er  using  "("  at  20  42 


.vopcity  .vopst  .vopzip  + 


20  10 
messages" 


fails  or'er  eq  "Y1 
var  review  to  "Y" 
var  pg  to  1 
pointer  #1  el 
pointer  #2  e2 
pointer  #3  e3 


for 
for 
for 


vessel 
owners 


if  er  fails  or  er  eq  "Y"  then 
set 
set 
set 
set 
set 
break 
else 

newpage 

write  "Removing  duplicate 
"Please  stand  by 

duplicates  from 

duplicates 

duplicates 

duplicates 

duplicates 


where 
where 


vslhin 
ownid 


eq 
eq 


.wslhin 
.vownid 


operator  where  opid  eq  .vopid 


rrom 
from 
from 
from 


vessel 

owvsl 

opvsl 

owners 

operator 


tables" 
"  at  15 


at 
12 


10  10 


entries  from 

write 

delete 

delete 

delete 

delete 

delete 
endif 
else 

newpage 

write  "Load  not  performed. 

at  5  20 

write  "Required  information  includes:"  at  10  30 

write  "Sar  Date,  Folder  Number,  Unit  Case  Number"  at  12  35 

write  "Vessel  Name,  Sar  Latitude,  Sar  Longitude"  at  13  35 

write  "Sar  Nature  of  Distress"  at  14  35 

fillin  go  using  "Press  [ENTER]  to  return  to  data  entry"  + 

at  16  25 

set  var  pg  to  1 


Required  information  missing."  + 
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set  var  review  to  "Y" 
break 
endif 
endif 

if  choice  eq  1  or  choice  eq  2  then 
*(enter  sar  units) 
newpage 

write  "Enter  sar  units?  (Y)"  at  12  20 
fillin  s_units  using  "("  at  12  37 
if  s_units  fails  or  s_units  eq  Y  then 
set  var  more  to  "Y" 
while  more  eq  Y  then 

set  var  vuwtime  to  .vsartime 
set  var  vuwdate  to  .vsardate 
set  var  vetadate  to  .vsardate 
set  var  vdateos  to  .vsardate 
set  var  valgdate  to  .vsardate 
set  var  vtowdate  to  .vsardate 
set  var  vdvmoord  to  .vsardate 
set  var  vsumoord  to  .vsardate 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  sarform8  with  all  at  3 

edit  var  vunit  vuwtime  vuwdate  voseta  vetadate  vostime  + 
vdateos  valgtime  valgdate  vtowtime  vtowdate  vdvmoort  + 
vdvmoord  vsumoort  vsumoord  return  esc  pgdn 
if  #return  eg  pgdn  then 
if  voseta  rails  then 
clear  vetadate 
set  var  vetadate  date 
endif 

if  vostime  fails  then 
clear  vdateos 
set  var  vdateos  date 
endif 

if  valgtime  fails  then 
clear  valgdate 
set  var  valgdate  date 
endif 

if  vtowtime  fails  then 
clear  vtowdate 
set  var  vtowdate  date 
endif 

if  vdvmoort  fails  then 
clear  vdvmoord 
set  var  vdvmoord  date 
endif 

if  vsumoort  fails  then 
clear  vsumoord 
set  var  vsumoord  date 
-endif 

set  pointer  #1  el  for  sarunits  whe  foldno  eq  .vfoldno  and  + 
unitname  eq  .vunit 
newpage 
if  el  eq  0  then 

write  "Duplicate  entry  not  loaded" 
else 

write  "Loading  sarunits" 
load  sarunits 

.vfoldno  .vunit  .vuwtime  .vuwdate  .voseta  .vetadate  + 
.vostime  .vdateos  .valgtime  .valgdate  .vtowtime  + 
.vtowdate  .vdvmoort  .vdvmoord  .vsumoort  .vsumoord 
end 
endif 

write  "More  units  to  enter?  (N)"  at  23  20 
fillin  mrunits  using  "("  at  23  41 
if  mrunits  fails  or  mrunits  eq  N  then 

set  var  more  to  N 
else 

clear  vunit 
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clear  voseta 
clear  vostime 
clear  valgtime 
clear  vtowtime 
clear  vdvmoort 
clear  vsumoort 
endif 
endif 
if  #return  eq  esc  then 

set  var  more  to  N 
endif 
endwhile 
endif 

*(enter  owner  information) 
newpage 

write  "Enter  additional  owners?  (N)"  at  12  20 
fillin  addlownr  using  "("  at  12  45 
if  addlownr  exists  and  addlownr  eq  Y  then 
set  var  more  to  "Y" 
while  more  eq  Y  then 
newpage 

set  var  vowlname  to  unk 
set  var  vowfname  to  unk 

write  "Press  [PGDN]  after  entering  initial  information  to  + 
check  if"  at  1  5 

write  "owner  exists  in  database.   Press  [ESC]  to  quit"  + 

at  2  10 

draw  sarform4  with  all  at  4 

edit  var  return  esc  pgdn 

if  #return  ne  esc  then 

while  vowlname  exists  and  vowfname  exists  then 

set  pointer  #2  e2  for  owners  where  ownlname  =  .vowlname  + 

and  ownfname  =  .vowfname 

newpage 

while  e2  eg  0  then 

*(owner  last/first  name  exists  in  database) 
set  var  vowmi  to  ownmi  in  #2 
set  var  vowdob  to  owndob  in  #2 
set  var  vowaddr  to  ownaddr  in  #2 
set  var  vowcity  to  owncity  in  #2 
set  var  vowst  to  ownstate  in  #2 
set  var  vowzip  to  ownzip  in  #2 
set  var  vowtelno  to  owntelno  in  #2 
newpage 

draw  sarform4  with  all  at  3 
draw  sarform5  with  all  at  8 
write  "Correct  owner?  (N)"  at  21  20 
fillin  owfound  using  "("  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
set  var  owl  to  .vowlname 
set  var  ow2  to  .vowfname 
set  var  ow3  to  ownmi  in  #2 
set  var  ow4  to  ownaddr  in  #2 
set  var  ow5  to  owncity  in  #2 
set  var  ow6  to  ownstate  in  #2 
set  var  ow7  to  ownzip  in  #2 
set  var  ow8  to  owntelno  in  #2 
set  var  ow9  to  owndob  in  #2 
set  var  owlO  to  ownid  in  #2 
set  var  vownid  to  ownid  in  #2 
break 
endif 

next  #2  e2 
endwhile 
if  e2  ne  0  then 
newpage 

write  "This  owner  does  not  exist  in  the  database"  + 
at  5  5 

fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 
clear  vowmi 
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clear  vowaddr 

clear  vowcity 

set  var  vowst  to  CA 

clear  vowzip 

clear  vowtelno 

set  var  vowdob  to  01/01/1901 

compute  vmaxown  as  max  ownid  from  owners 

if  vmaxown  fails  then 

set  var  vmaxown  to  0 
endif 

set  var  vownid  to  .vmaxown  +  1 
endif 
break 
endwhile 
label  redoown 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  sarform4  with  all  at  3 
draw  sarform5  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
if  #return  eq  pgdn  then 
newpage 

set  error  messages  off 
if  e2  eq  0  then 

*(owner  exists  in  database) 
write  "changing  values  in  owner" 
delete  rows  from  #2 
else 

write  "loading  owner" 
endif 
load  owners 

.vowlname  .vowfname  .vowmi  .vowaddr  .vowcity  .vowst  + 
.vowzip  .vowtelno  .vowdob  .vownid 
end 
if  e2  eq  0  then 

set  pointer  #2  e2  for  owners  where  ownid  eq  .owlO 
if  e2  ne  0  then 
load  owners 

.owl  .ow2  .ow3  .ow4  .ow5  .ow6  .ow7  .ow8  .ow9  .owlO 
end 
endif 
endif 

set  error  messages  on 

write  "Return  to  correct  errors?  (N)"  at  15  10 
write  "Note:  correct  only  errors  indicated  by  + 
messages"  at  20  5 

fillin  fixown  using  "("  at  15  36 

if  fixown  exists  and  fixown  eq  Y  then 

goto  redoown 
endif 

set  pointer  #2  e2  for  owvsl  where  vhinown  eq  .wslhin  + 
and  idowner  eq  .vownid 
*(check  if  record  already  exists) 
newpage 

if  e2  ne  0  then 
load  owvsl 

.wslhin  .vownid 
end 
endif 
endif 
endif 

write  "More  owners  to  enter?  (N)"  at  20  20 
fillin  mrownrs  using  "("  at  20  42 
if  mrownrs  fails  or  mrownrs  eq  N  then 

set  var  more  to  N 
endif 
endwhile 
endif 
newpage 
write  "Enter  additional  operators?  (N)"  at  12  20 
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fillin  addloper  using  "("  at  12  48 
if  addloper  exists  and  addloper  eq  Y  then 
set  var  more  to  "Y" 
while  more  eq  Y  then 
newpage 

*(enter  operator  information) 

write  "Press  [PGDN]  after  entering  initial  information  to  + 
check  if"  at  1  5 

write  "operator  exists  in  database.   Press  [ESC]  to  quit"  + 

at  2  10 

set  var  voplname  to  unk 

set  var  vopfname  to  unk 

draw  sarform6  with  all  at  4 

edit  var  return  esc  pgdn 

if  #return  ne  esc  then 

while  voplname  exists  and  vopfname  exists  then 
set  pointer  #3  e3  for  operator  where  oplname  =  + 
.voplname  and  op f name  =  .vopfname 
newpage 
while  e3  eq  0  then 

*(operator  last/first  name  exists  in  database) 
set  var  vopmi  to  opmi  in  #3 
set  var  vopdob  to  opdob  in  #3 
set  var  vopaddr  to  bpaddr  in  #3 
set  var  vopcity  to  opcity  in  #3 
set  var  vopst  to  opstate  in  #3 
set  var  vopzip  to  opzip  in  #3 
set  var  voptelno  to  optelno  in" #3 
set  var  vopid  to  opid  in  #3 
set  var  vopcrse  to  opcourse  in  #3 
newpage 

draw  sarform6  with  all  at  3 
draw  sarform7  with  all  at  8 
write  "Correct  operator?  (N)"  at  21  20 
fillin  opfound  using  "("  at  21  38 
if  opfound  exists  and  opfound  eq  Y  then 
set  var  opl  to  .voplname 
set  var  op2  to  .vopfname 
set  var  op3  to  opmi  in  #3 
set  var  op4  to  opaddr  in  #3 
set  var  op5  to  opcity  in  #3 
set  var  op6  to  opstate  in  #3 
set  var  op7  to  opzip  in  #3 
set  var  op8  to  optelno  in  #3 
set  var  op9  to  opdob  in  #3 
set  var  oplO  to  opcourse  in  #3 
set  var  opll  to  opid  in  #3 
break 
endif 

next  #3  e3 
endwhile 
if  e3  ne  0  then 
newpage 

write  "This  operator  does  not  exist  in  the  database"  + 
at  5  5 

fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 
clear  vopmi 
clear  vopaddr 
clear  vopcity 
set  var  vopst  to  CA 
clear  vopzip 
clear  voptelno 
set  var  vopdob  to  01/01/1901 
clear  vopcrse 

compute  vmaxop  as  max  opid  from  operator 
if  vmaxop  fails  then 

set  var  vmaxop  to  0 
endif 

set  var  vopid  to  .vmaxop  +  1 
endif 
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break 
endwhile 
label  redooper 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  sarform6  with  all  at  3 
draw  sarform7  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
if  #return  eq  pgdn  then 
newpage 

set  error  messages  off 
if  e3  eq  0  then 

^(operator  exists  in  database) 
write  "changing  values  in  operator" 
delete  rows,  from  #3 
else 

write  "loading  operator" 
set  var  vopcrse  text 
endif 
load  operator 

.voplname  .vopfname  .vopmi  .vopaddr  .vopcity  .vopst  + 
.vopzip  .voptelno  .vopdob  .vopcrse  .vopid 
end 
if  e3  eq  0  then 

set  pointer  #3  e3  for  operator  where  opid  eq  .opll 
if  e3  ne  0  then 
load  operator 

.  opl  .op2  .op2  .op3  .  op4  .op5  .op6  .op7  .op8  .op9  + 
.  oplO  .bpll 
end 
endif 
endif 

set  error  messages  on 

write  "Return  to  correct  errors?  (N)"  at  15  10 
write  "Note:  correct  only  errors  indicated  by  messages"  + 
at  20  5 

fillin  fixopr  using  " ( "  at  15  36 
if  fixopr  exists  and  fixopr  eq  Y  then 


goto  redooper 
snaif 


endif 

set  pointer  #3  e3  for  opvsl  where  vhinoper  eq  .wslhin  + 
and  idoper  eq  .vopid 
*(check  if  record  already  exists) 
newpage 

if  e3  ne  0  then 
load  opvsl 

.wslhin  .vopid 
end 
endif 
endif 
endif 

write  "More  operators  to  enter?  (N)"  at  20  20 
fillin  mropers  using  "("  at  20  45 
if  mropers  fails  or  mropers  eq  N  then 

set  var  more  to  N 
endif 
endwhile 
endif 
newpage 

write  "Enter  another  sar  case?  (Y)"  at  12  20 
fillin  cont  using  "("  at  12  44 
if  cont  fails  or  cont  eq  Y  then 
clear  all  variables 
set  var  pg  to  1 
set  var  review  to  "N" 
set  var  loadmenu  to  "N" 
break 
else 

set  null  -0- 
set  var  pg  to  0 
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endif 
endif 

if  choice  eq  3  then 
set  var  review  to  "Y" 
set  var  pg  to  1 
endif 
endwhile 
else 

newpage 

write  "Enter  another  sar  case?  (Y)M  at  12  20 
fillin  cont  using  "("  at  12  44 
if  cont  fails  or  cont  eq  Y  then 
clear  all  variables 
set  var  pg  to  1 
set  var  review  to  "N" 
set  var  loadmenu  to  "N" 
else 

set  error  messages  off 
set  null  -0- 
set  var  pg  to  0 
endif 
endif 
if  pg  eq  1  then 

goto  begin 
endif 
return 
*(  end  ) 


$C0MMAND 
ADD  SBD 

■k  (  ***********************************^ 

Program:  Add  Sar  with  Boarding 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:      July  1987 

Description:       This  program  allows  the  user  to  enter  sar 

and  boarding  information. 
Tables  Used:      boarding,  vessel,  owners,  operator,  owvsl, 

opvsl,  sar 
Temp  Tables:       none 
Reports  Used:      none 
Forms  Used:        cg4100al,  cg4100a2,  cg4100a3,  cg4100a4, 

cg4100a5,  cg4100a6,  cg4100a7,  cg4100a8, 

cg4100a9,  sbdforml,  sarforml,  sarform8, 

sarform9,  sarform5 

set  error  messages  off 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.   Please  stand  by  "  at  10  10 

clear  all  variables 

set  null  ? 

set  var  pg  to  1 

*( initialize  edit  and  load  control  variables) 

set  var  review  to  "N" 

set  var  loadmenu  to  "N" 

label  begin 

set  var  backup  to  N 

set  var  pgcount  to  0 

while  pg  gt  0  then  *(main  loop) 

newpage 

if  pg  eq  1  then 

*(enter  boarding/vessel  information) 
if  review  eq  N  and  backup  eq  N  then 
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set  var  pgcount  to  1 
set  var  vbodate  to  .#date 
set  var  vbotime  to  12:00:00 
set  var  wslname  to  unk 

write  "Press  [PGDN]  after  entering  initial  information  to  check  + 
if"  at  1  5 

write  "vessel  exists  in  database.   Press  [ESC]  to  quit"  at  2  10 
draw  cg4100al  with  all  at  4 
edit  var  return  esc  pgdn 
else 

write  "Press  [PGDN]  after  review/correction  or  [ESC]  to  quit"  + 
at  1  5 

draw  cg4100al  with  all  at  4 

edit  var  wslname  vbodate  vbotime  vbono  return  esc  pgdn 
endif 

if  #return  ne  esc  then 
while  wslhin  exists  then 

if  review  eq  N  and  backup  eq  N  then 

set  pointer  #1  al  for  vessel  where  vslhin  =  .wslhin 

newpage 

set  var  wslpob  to  0 

set  var  vadult  to  0 

set  var  vchild  to  0 

if  el  eq  0  then 

*(vessel  exists  in  database) 

set  var  wslno  to  vslno  in  #1 

set  var  wslname  to  vslname  in  #1 

set  var  wslmake  to  vslmake  in  #1 

sen  var  wslmod  to  vslmodel  in  #1 

set  var  wslyear  to  vslyear  in  #1 

set  var  wslton  to  vsltons  in  #1 

set  var  wslft  to  vsllenft  in  #1 

set  var  wslin  to  vsllenin  in  #1 

set  var  wslhp  to  vslhp  in  #1 

set  var  wsluse  to  vsluse  in  #1 

set  var  wsltype  to  vsltype  in  #1 

set  var  wslprop  to  vslprop  in  #1 

set  var  wslnull  to  vslhull  in  #1 

set  var  wsleng  to  vsleng  in  #1 

set  var  wslfuel  to  vslfuel  in  #1 

set  var  vconstr  to  vslconst  in  #1 

set  var  vdecal  to  cmedecal  in  #1 

set  var  vcmeyear  to  cmeyear  in  #1 

set  var  voffno  to  vsloffno  in  #1 

set  var  vhome  to  homeport  in  #1 

set  var  vcall  to  vslcall  in  #1 

set  var  walue  to  vslvalue  in  #1 

set  var  vsuper  to  vslsuper  in  #1 

set  var  vmasts  to  vslmasts  in  #1 

set  var  vsailno  to  sailno  in  #1 

set  var  vhlcolor  to  hlcolor  in  #1 

set  var  vtrcolor  to  trcolor  in  #1 

set  var  vslcolor  to  slcolor  in  #1 

set  var  vc.bcolor  to  cbcolor  in  #1 

set  var  vdkcolor  to  dkcolor  in  #1 

set  var  vmarks  to  vslmarks  in  #1 

set  var  vl  to  vslno  in  #1 

set  var  v2  to  vslname  in  #1 

set  var  v3  to  vslhin  in  #1 

set  var  v4  to  vslmake  in  #1 

set  var  v5  to  vslmodel  in  #1 

set  var  v6  to  vslyear  in  #1 

set  var  v7  to  vsltons  in  #1 

set  var  v8  to  vsllenft  in  #1 

set  var  v9  to  vsllenin  in  #1 

set  var  vlO  to  vslhp  in  #1 

set  var  vll  to  vsluse  in  #1 

set  var  vl2  to  vsltype  in  #1 

set  var  vl3  to  vslprop  in  #1 

set  var  vl4  to  vslhull  in  #1 
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set  var  vl5  to  vsleng  in  #1 
set  var  vl6  to  vslfuel  in  #1 
set  var  vl7  to  vslconst  in  #1 
set  var  vl8  to  cmedecal  in  #1 
set  var  vl9  to  cmeyear  in  #1 
set  var  v20  to  vsloffno  in  #1 
set  var  v21  to  homeport  in  #1 
set  var  v22  to  vslcall  in  #1 
set  var  v23  to  vsivalue  in  #1 
set  var  v24  to  vslsuper  in  #1 
set  var  v25  to  vslmasts  in  #1 
set  var  v26  to  sailno  in  #1 
set  var  v27  to  hlcolor  in  #1 
set  var  v28  to  trcolor  in  #1 
set  var  v29  to  sicolor  in  #1 
set  var  v30  to  cbcolor  in  #1 
set  var  v31  to  dkcolor  in  #1 
set  var  v32  to  vslmarks  in  #1 
else 

^(vessel  does  not  exist  in  database) 
set  var  wslmake  to  unk 
set  var  wslmod  to  unk 
set  var  wslyear  text 
set  var  wslyear  to  1901 
set  var  wslnp  text 
set  var  wslhp  to  0 
set  var  wslus'e  text 
set  var  wsluse  to  0 
set  var  wsltype  text 
set  var  wsltype  to  9 
set  var  wslprop  text 
set  var  wslprop  to  9 
set  var  wslhull  text 
set.  var  wslhull  to  8 
set  var  wsleng  text 
set  var  wsleng  to  0 
set  var  wslfuel  text 
set  var  wslfuel  to  0 
set  var  vconstr  text 
set  var  vconstr  to  0 
set  var  wslton  to  0 
set  var  wslft  to  0 
set  var  wslin  to  0 
set  var  vdecal  to  N 
endif 
endif 
newpage 

write  "Press  [ESC]  to  quit  or  [PGDN]  to  move  down  a  Dage"  + 
at  1  1 

draw  cg4100al  with  all  at  3 
draw  cg4100a2  with  all  at  10 
edit  var  return  esc  pgdn 
break 
endwhile 
endif 
endif 

if  pg  eq  2  then 
*(enter  owner  information) 
if  review  eq  N  and  backuo  eq  N  then 
set  var  pgcount  to  2 
set  var  vowlname  to  unk 
set  var  vowfname  to  unk 

write  "Press  [PGDN]  after  entering  initial  information  to  check  + 
if"  at  1  5 

write  "owner  exists  in  database.   Press  [ESC]  to  quit"  at  2  10 
draw  cg4100a3  with  all  at  4 
edit  var  return  esc  pgdn 
endif 
if  #return  ne  esc  then 

if  review  eq  N  and  backup  eq  N  then 
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while  vowlname  exists  and  vowfname  exists  then 

set  pointer  #2  e2  for  owners  where  ownlname  =  .vowlname  and  + 

ownfname  =  .vowfname 

newpage 

while  e2  eg  0  then 

*(owner  last/first  name  exist  in  database) 
set  var  vowmi  to  ownmi  in  #2 
set  var  vowdob  to  owndob  in  #2 
set  var  vowaddr  to  ownaddr  in  #2 
set  var  vowcity  to  owncity  in  #2 
set  var  vowst  to  ownstate  in  #2 
set  var  vowzip  to  ownzip  in  #2 
set  var  vowtelno  to  owntelno  in  #2 
newpage 

draw  cg4100a3  with  all  at  3 
draw  cg4100a4  with  all  at  8 
write  ''Correct  owner?  (N)"  at  21  20 
fillin  owfound  using  "("  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
set  var  owl  to  .vowlname 
set  var  ow2  to  .vowfname 
set  var  ow3  to  ownmi  in  #2 
set  var  ov/4  to  ownaddr  in  #2 
set  var  ow5  to  owncity  in  #2 
set  var  ow6  to  ownstate  in  #2 
set  var  ow7  to  ownzio  in  #2 
set  var  ow8  to  owntelno  in  #2 
set  var  ow9  to  owndob  in  #2 
set  var  owlO  to  ownid  in  #2 
set  var  vownid  to  ownid  in  #2 
break 
endif 

next  #2  e2 
endwhile 
if  e2  ne  0  then 
newpage 

write  "This  owner  does  not  exist  in  the  database"  at  5  5 
fillin  go  using  "Press  [ENTER]'  to  continue"  at  9  5 
clear  vowmi 
clear  vowaddr 
clear  vowcity 
set  var  vowst  to  CA 
clear  vowzip 
clear  vowtelno 
set  var  vowdob  to  01/01/1901 
clear  vostatus 

compute  vmaxown  as  max  ownid  from  owners 
if  vmaxown  fails  then 
set  var  vmaxown  to  0 
endif 

set  var  vownid  to  .vmaxown  +  1 
endif 
break 
endwhile 
endif 
newpage 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  cg4100a3  with  all  at  3 
draw  cg4100a4  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
endif 
endif 

if  pg  eq  3  then 
*(enter  operator  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  3 
if  vostatus  eq  1  then 

set  var  voplname  to  .vowlname 
set  var  vopfname  to  .vowfname 
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set  var  treturn  to  pgdn 
else 

set  var  voplname  to 
set  var  vopfname  to 
write  "Press  [PGDN] 
check  if"  at  1  5 

write  "operator  exists 
at  2  10 

draw  cg4100a5  with  all  at 
var  return  esc  pgdn 


unk 
unk 
after 


in 


entering  initial  information  to  + 
database.  Press  [ESC]  to  quit"  + 


edit 
endif 
endif 
if  #return  ne  esc  then 

if  review  eg  N  and  backup  eq  N  then 

while  voplname  exists  and  vopfname  exists  then 

set  pointer  #3  e3  for  operator  where  oplname  =  .voplname  and  + 

op f name  =  .vopfname 

newpage 

while  e3  eq  0  then 

^(operator  last/first  name  exist  in  database) 

set  var  vopmi  to  opmi  in  #3 

set  var  vopdob  to  opdob  in  #3 

set  var  vopaddr  to  opaddr  in  #3 

set  var  vopcity  to  opcity  in  #3 

set  var  vopst  to  opstate  in  #3 

set  var  vopzio  to  opzip  in  #3 

set  var  voptelno  to  optelno  in  #3 

set  var  vopcrse  to  opcourse  in  #3 


newpage 
draw  cg4100a5  with  all  at  3 
draw  cg4100a6  with  all  at  3 
write  "Correct  ODerator?  (N)"  at  21 
fillin  opfound  using  "("  at  21  38 
if  opfound  exists  and  opfound  eq  Y 
set  var  opl  to  .voplname 
op2*  to  .vopfname 
op3  to  opmi  in  #3 
op4  to  opaddr  in  #3 
op5  to  opcity  in  #3 
op6  to  opstate  in  #3 
op7  to  opzip  in  #3 
op8  to  optelno  in  #3 
op9  to  opdob  in  #3 
oplO  to  opcourse  in  #3 


20 
then 


set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
break 
endif 


var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 


opll  to  opid  in  #3 
vopid  to  opid  in  #3 


next  #3  e3 
endwhile 
if  e3  ne  0  then 

newpage 

write  "This  operator  does  not 

fillin  go  using  "Press  [ENTER] 

if  vostatus  eq  1  then 
set  var  vopmi  to  .vowmi 
set  var  vopaddr  to  .vowaddr 
set  var  vopcity  to  .vowcity 
•  set  var  voost  to  .vowst 
set  var  vopzip  text 
set  var  vopzip  to  .vowzip 
set  var  voptelno  text 
set  var  voptelno  to  .vowtelno 
set  var  vopcrse  text 
set  var  vopdob  to  .vowdob 

else 

clear  vopmi 
clear  vopaddr 
clear  vopcity 
set  var  vopst  to  CA 


exist  in  the  database" 
to  continue"  at  9  5 


at  5  5 
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clear  vopzip 
clear  voptelno 
set  var  vopdob  to  01/01/1901 
endif 

clear  vopcrse 

compute  vmaxop  as  max  opid  from  operator 
if  vmaxop  fails  then 

set  var  vmaxop  to  0 
endif 

set  var  vopid  to  .vmaxop  +  1 
endif 
break 
endwhile 
endif 
newpage 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  cg4100a5  with  all  at  3 
draw  cg4100a6  with  all  at  8 
if  vostatus  eq  1  then 

edit  var  vopcrse  return  esc  pgup  pgdn 
else 

edit  var  return  esc  pgup  pgdn 
endif 
endif 
endif 
if  pg  eq  4  then 

*(enter  boarding  location  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  4 
set  var  vobsbody  to  text 
set  var  vobsbody  to  "Monterey  Bay" 
set  var  vobcount  to  Monterey 
set  var  vobscity  to  Monterey 
set  var  vobstate  to  CA 
set  var  vobslat  to  00.000 
set  var  vobslong  to  000.000 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  down  + 
a  page"  at  1  1 

draw  cg4100a7  with  all  at  3 
edit  var  return  esc  pgup  pgdn 
endif 
if  pg  eq  5  then 

*(enter  boarding  violation/unsafe  condition  information) 
if  review  eq  N  and  backup  eq  N  then 

set  var  pgcount  to  5 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  cg4100a8  with  all  at  3 
edit  var  return  esc  pgup  pgdn 
endif 
if  pg  eq  6  then 

*(enter  boarding  officer  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  6 
set  var  vbounit  text 

set  var  vbounit  to  "CG  Group  Monterey" 
set  var  vbodist  text 
set  var  vbodist  to  11 
set  var  vboopfac  text 
set  var  vboopfac  to  36268 
set  var  vbosrise  to  06:00:00 
set  var  vbosset  to  19:00:00 
set  var  weapons  to  0 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  cg4100a9  with  all  at  3 
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edit  var  return  esc  pgup  pgdn 
endif 
if  pg  eq  7  then 

*(enter  additional  vessel  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  7 
if  el  ne  0  then 

set  var  walue  to  $0 
set  var  vmasts  text 
set  var  vmasts  to  0 
set  var  vslcolor  to  unk 
set  var  vhlcolor  to  unk 
set  var  vtrcolor  to  unk 
set  var  vcbcolor  to  unk 
set  var  vdkcolor  to  unk 
endif 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page'1  at  1  1 

draw  sbdforml  with  all  at  3 

edit  var  voffno  vhome  vcall  walue  vsuper  vmasts  vslcolor  vsailno  + 
vhlcolor  vtrcolor  vcbcolor  vdkcolor  vmarks  return  esc  pgup  pgdn 
endif 
if  pg  eq  8  then 

*(enter  general  sar  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  8 
set  var  vsardate  to  .vbodate 
set  var  vsartime  to  .vbotime 
set  var  vsarlat  to  .vobslat 
set  var  vsarlong  to  .vobslong 
set  var  vdistofr  to  0 
set  var  vsarpob  to  .wslpob 
set  var  vsarday  to  .vboday 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  sarforml  with  all  at  3 

edit  var  vfoldno  vucn  vraucn  vsardate  vsarday  vsartime  vsarnod  + 
vimmed  vsarlat  vsarlong  vdistoff  vsarpob  return  esc  pgdn 
endif 
if  pg  eq  9  then 

*(enter  sar  weather  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  9 
set  var  vsunrise  to  .vbosrise 
set  var  vsunset  to  .vbosset 
set  var  vceiling  to  0 
set  var  vclouds  to  0 
set  var  wisdist  to  0 
set  var  vwinddir  to  0 
set  var  vwindspd  to  0 
set  var  vseas  to  0 
set  var  vswells  to  0 
endif 

write  "Press  [ESC]  to  quit  or  [PGUP]  to  move  up  a  page"  at  1  1 
draw  sarform9  with  all  at  3 

edit  var  vsunrise  vsunset  vceiling  vclouds  wisdist  vwinddir  + 
vwindspd  vseas  vswells  return  esc  pgup 
set  var  loadmenu  to  "Y" 
endif 

if  #return  eq  pgup  then 
set  var  backup  to  Y 
if  pg  gt  1  then 

set  var  pg  to  .pg  -  1 
else 

set  var  pg  to  1 
endif 
endif 
if  ttreturn  eq  pgdn  then 
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if  pg  It  9  then 

set  var  pg  to  .pg  +  1 
if  pgcount  It  .pg  then 

set  var  backup  to  N 
endif 
else 

set  var  pg  to  9 
endif 
endif 

if  #return  eq  esc  then 
set  var  pg  to  0 
set  var  backup  to  N 
endif 
endwhile  *(end  of  main  loop) 
newoage 

write  "Program  loading  in  progress.  Please  stand  by  "  at  10  10 

if  loadmenu  eg  "Y"  then 
set  var  choice  to  0 

while  choice  It  1  or  choice  gt  3  then 
newpage 
write  "Data  Load  Options"  at  2  20 

write  " "  at  3  20 

write  "Enter:"  at  5  20 

write  "1-To  load  the  data  into  the  database"  at  6  20 

write  "2-To  ignore  the  data  entered"  at  7  20 

write  "3-To  go  back  and  verify  data  entered"  at  8  20 

write  "Your  choice:  "  at  10  20 

fillin  choice  using  "  "  at  10  33 

newpage 

if  choice  eq  1  then 

*(test  for  required  information) 
set  var  test  to  "F" 

if  vbodate  exists  and  vbotime  exists  and  vbono  exists  and  + 
wslname  exists  and  vobslat  exists  and  vobslong  exists  then 
if  vsardate  exists  and  vfoldno  exists  and  vucn  exists  and  + 
wslname  exists  and  vsarlat  exists  and  vsarlong  exists  and  + 
vsarnod  exists  and  vimmed  exists  then 

if  wiol54  exists  or  wiol55  exists  or  wiol56  exists  or  + 
wiol57  exists  or  vviol58  exists  or  wiol59  exists  or  + 
wiol60  exists  or  wiol61  exists  or  wiol62  exists  or  + 
vviol63  exists  then 

set  var  test  to  "T" 
endif 

if  wiol64  exists  or  wiol65  exists  or  wiol66  exists  or  + 
wiol67  exists  or  wiol68  exists  or  vuns69  exists  or  vuns70  + 
exists  or  vuns71  exists  or  vuns72  exists  or  vuns73  exists  then 

set  var  test  to  "T" 
endif 

if  vuns74  exists  or  vuns75  exists  or  vuns76  exists  or  Vuns77  ■+ 
exists  or  vuns78  exists  or  vuns79  exists  then 

set  var  test  to  "T" 
endif 

if  test  eq  "T"  then 
set  error  messages  off 
if  el  eq  0  then 

*(vessel  exists  in  database) 
write  "changing  values  in  vessel" 
delete  rows  from  #1 
else 

write  "loading  vessel" 
endif 
load  vessel 

.wslno  .wslname  .wslhin  .wslmake  .wslmod  .wslyear  + 
.wslton  .wslft  .wslin  .wslhp  .wsluse  .wsltype  + 
.wslprop  .wslhull  .wsleng  .wslfuel  .vconstr  .vdecal  + 
.vcmeyear  .voffno  .vhome  .vcall  .walue  .vsuper  .vmasts  + 
.vsailno  .vhlcolor  .vtrcolor  .vslcolor  .vcbcolor  + 
.vdkcolor  .vmarks 
end 
if  el  eq  0  then 
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set  pointer  #1  el  for  vessel  whe  vslhin  eq  .v3 
if  el  ne  0  then 
load  vessel 

.vl  .v2  ,v3  .v4  .v5  .v6  .v7  .v8  .v9  .vlO  .vll  .vl2  + 
.vl3  .vl4  .vl5  .vl6  .vl7  .vl8  .vl9  .v20  .v21  .v22  + 
.v23  .v24  .v25  .v26  .v27  .v28  .v29  .v30  .v31  .v32 
end 
endif 
endif 

write  "loading  owvsl" 
load  owvsl 

.wslhin  .vownid 
end 

write  "loading  opvsl" 
load  opvsl 

•  wslhin  .vopid 
end 

if  vostatus  eq  1  then 
load  opown 

.vownid  .vopid 
end 
endif 

set  pointer  #1  el  for  boarding  where  bono  =  .vbono 
if  el  eq  0  then 

set  var  difbo  to  "F" 

set  var  bl  to  bodate  in  #1 

set  var  b2  to  botime  in  #1 

set  var  b3  to  obslat  in  #1 

set  var  b4  to  obslong  in  #1 

if  bl  ne  .vbodate  or  b2  ne  .vbotime  or  b3  ne  .vobslat  or  + 

b4  ne  .vobslong  then 

set  var  difbo  to  "T" 
endif 
else 

set  var  difbo  to  "T" 
endif 
if  difbo  eq  T  then 

write  "loading  boarding" 
load  boarding 

.vbodate  .vbotime  .vbono  .wslpob  .vadult  .vchild  + 
.vostatus  .vobsbody  .vobcount  .vobscity  .vobstate  + 
.vobslat  .vobslong  .vviol54  .wiol55  .wiol56  + 
.wiol57  .wiol58  .wiol59  .wiol60  .wiol61  .wiol62  + 
.wiol63  .wiol64  .wiol65  .wiol66  .wiol67  .wiol68  + 
.vuns69  .vuns70  .vuns71  .vuns72  .vuns73  .vuns74  + 
.vuns75  .vuns76  .vuns77  .vuns78  .vuns79  .vboreml  + 
.vborem2  .vborem3  .vboname  .vborate  .vbounit  .vbodist  + 
.vboopfac  .vboday  .vbosrise  .vbosset  .wslhin  + 
•  weapons 
end 
endif 

set  pointer  #1  el  for  sar  where  folderno  =  .vfoldno 
if  el  eq  0  then 

set  var  difsar  to  "F" 

set  var  si  to  sardate  in  #1 

set  var  s2  to  sartime  in  #1 

set  var  s3  to  sarlat  in  #1 

set  var  s4  to  sarlong  in  #1 

set  var  s5  to  sarnod  in  #1 

set  var  s6  to  sarvhin  in  #1 

if  si  ne  .vsardate  or  s2  ne  .vsartime  or  s3  ne  .vsarlat  + 

or  s4  ne  .vsarlong  or  s5  ne  .vsarnod  or  s6  ne  .wslhin  + 

then 

set  var  difsar  to  "T" 
endif 
else 

set  var  difsar  to  "T" 
endif 

if  difsar  eq  T  then 
write  "loading  sar" 
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load  sar 

.vfoldno  .vucn  .vmucn  .vsardate  .vsarday  .vsartime  + 
.vsunrise  .vsunset  .vsarnod  .vsarpob  .wslhin  + 
.vsarlat  .vsarlong  .vdistoff  .vimmed  .vwinddir  + 
.vwindspd  .wisdist  .vclouds  .vceiling  .vseas  .vswells 

end 
endif 
if  e2  eq  0  then 

*( owner. exists  in  database) 

write  "changing  values  in  owner" 

delete  rows  from  #2 
else 

write  "loading  owner" 
endif 
load  owners 

.vowlname  .vowfname  .vowmi  .vowaddr  .vowcity  .vowst  + 

.vowzip  .vowtelno  .vowdob  .vownid 
end 
if  e2  eq  0  then 

set  pointer  #2  e2  for  owners  whe  ownid  eq  .owlO 

if  e2  ne  0  then 
load  owners 

.owl  .ow2  .ow3  .ow4  .ow5  .ow6  .ow7  .ow8  .ow9  .owlO 
end 

endif 
endif 
if  e3  eq  0  then 

^(operator  exists  in  database) 

write  "changing  values  in  operator" 

delete  rows  from  #3 
else 

write  "loading  operator" 
endif 
load  operator 

.voplname  .vopfname  .vopmi  .vopaddr  .vopcity  .vopst  + 

.vopzip  .voptelno  ..vopdob  .vopcrse  .vopid 
end 
if  e3  eq  0  then 

set  pointer  #3  e3  for  operator  where  opid  eq  .opll 

if  e3  ne  0  then 
load  operator 

.opl  .op2  .op2  .op3  .op4  .op5  .op6  .op7  .op8  .op9  + 
.oplO  .opll 
end 

endif 
endif 

write  "  " 

set  error  messages  on 

*( re turn  option  in  case  of  entry/edit  errors) 
write  "Return  to  correct  data  entered?  (Y)"  at  20  10 
write  "Note:  correct  only  errors  indicated  by  messages"  + 
at  22  5 

fillin  er  using  "("  at  20  42 
if  er  fails  or  er  eq  "Y"  then 

set  var  review  to  "Y" 

set  var  pg  to  1 

set  pointer  #1  el  for  vessel  where  vslhin  eq  .wslhin 

set  pointer  #2  e2  for  owners  where  ownid  eq  .vownid 

set  pointer  #3  e3  for  operator  where  opid  eq  .vopid 

break 
else 

newpage 

write  "Removing  duplicate  entries  from  tables"  at  10  10 

write  "Please  stand  by "  at  15  12 

delete  duplicates  from  vessel 

delete  duplicates  from  owvsl 

delete  duplicates  from  opvsl 

delete  duplicates  from  opown 

delete  duplicates  from  owners 

delete  duplicates  from  operator 
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endif 
endif 
endif 
else 

newpage 

write  "Load  not  performed.   Required  information  missing."  + 
at  5  20 

write  "Required  information  includes:"  at  10  30 
write  "Boarding  Date,  Boarding  Time,  Boarding  Number"  at  12  35 
write  "Vessel  Name,  Boarding  Latitude,  Boarding  Longitude"  + 
at  13  35 

write  "A  Violation  or  Unsafe  Condition"  at  14  35 
write  "Sar  Date,  Folder  Number,  Unit  Case  Number"  at  15  35 
write  "Vessel  Name,-  Sar  Latitude,  Sar  Longitude"  at  16  35 
write  "Sar  Nature  of  Distress"  at  17  35 

fillin  go  using  "Press  [ENTER]  to  return  to  data  entry"  + 
at  18  25 
set  var  pg  to  1 
set  var  review  to  "Y" 
break 
endif 
endif 

if  choice  eq  1  or  choice  eq  2  then 
''(enter  sar  units) 
newpage 

write  "Enter  sar  units?  (Y)"  at  12  20 
fillin  s_units  using  "("  at  12  37 
if  s_units  fails  or  s_units  eq  Y  then 
set  var  more  to  "Y"~ 
while  more  eq  Y  then 

set  var  vuwtime  to  .vsartime 
set  var  vuwdate  to  .vsardate 
set  var  vetadate  to  .vsardate 
set  var  vdateos  to  .vsardate 
set  var  valgdate  to  .vsardate 
set  var  vtowdate  to  .vsardate 
set  var  vdvmoord  to  .vsardate 
set  var  vsumoord  to  .vsardate 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  sarform8  with  all  at  3 

edit  var  vunit  vuwtime  vuwdate  voseta  vetadate  vostime  + 
vdateos  valgtime  valgdate  vtowtime  vtowdate  vdvmoort  + 
vdvmoord  vsumoort  vsumoord  return  esc  pgdn 
if  #return  eg  pgdn  then 
if  voseta  fails  then 
clear  vetadate 
set  var  vetadate  date 
endif 

if  vostime  fails  then 
clear  vdateos 
set  var  vdateos  date 
endif 

if  valgtime  fails  then 
clear  valgdate 
set  var  valgdate  date 
endif 

if  vtowtime  fails  then 
clear  vtowdate 
set  var  vtowdate  date 
endif 

if  vdvmoort  fails  then 
clear  vdvmoord 
set  var  vdvmoord  date 
endif 

if  vsumoort  fails  then 
clear  vsumoord 
set  var  vsumoord  date 
endif 
set  pointer  #1  el  for  sarunits  whe  foldno  eq  .vfoldno  and  + 
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unitname  eq  .vunit 

newpage 

if  el  eq  0  then 

write  "Duplicate  entry  not  loaded" 
else 

write  "Loading  sarunits" 
load  sarunits 

.vfoldno  .vunit  .vuwtime  .vuwdate  .voseta  .vetadate  + 
.vostime  .vdateos  .valgtime  .valgdate  .vtowtime  + 
.vtowdate  .vdvmoort  .vdvmoord  .vsumoort  .vsumoord 
end 
endif 

write  "More  units  to  enter?  (N)"  at  23  20 
fillin  mrunits  using  "("  at  23  41 
if  mrunits  fails  or  mrunits  eq  N  then 

set  var  more  to  N 
else 

clear  vunit 
clear  voseta 
clear  vostime 
clear  valgtime 
clear  vtowtime 
clear  vdvmoort 
clear  vsumoort 
endif. 
endif 
if  ftreturn  eq  esc  then 

set  var  more  to  N 
endif 
endwhile 
endif 

*(enter  additional  owners) 
newpage 

write  "Enter  additional  owners?  (N)"  at  12  20 
fillin  addl_own  using  "("  at  12  45 
if  addl_own  exists  and  addl_own  eq  Y  then 
set  var  more  to  "Y" 
while  more  eq  Y  then 

set  var  vowlname  to  unk 
set  var  vowfname  to  unk 
newpage 

write  "Press  [PGDN]  after  entering  initial  information  to  + 
check  if"  at  1  5 

write  "owner  exists  in  database.  Press  [ESC]  to  quit"  at  2  10 
draw  cg4100a3  with  all  at  4 
edit  var  return  esc  pgdn 
if  #return  ne  esc  then 

while  vowlname  exists  and  vowfname  exists  then 

set  pointer  #2  e2  for  owners  where  ownlname  =  .vowlname  + 

and  ownfname  =  .vowfname 
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while  e2  eg  0  then 

*(owner  last/first  name  exist  in  database) 
set  var  vowmi  to  ownmi  in  #2 
set  var  vowdob  to  owndob  in  #2 
set  var  vowaddr  to  ownaddr  in  #2 
set  var  vowcity  to  owncity  in  #2 
set  var  vowst  to  ownstate  in  #2 
set  var  vowzip  to  ownzip  in  #2 
set  var  vowtelno  to  owntelno  in  #2 
newpage 

draw  cg4100a3  with  all  at  3 
draw  cq4100a4  with  all  at  8 
write  rfCorrect  owner?  (N)"  at  21  20 
fillin  owfound  using  "("  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
set  var  owl  to  .vowlname 
set  var  ow2  to  .vowfname 
set  var  ow3  to  ownmi  in  #2 
set  var  ow4  to  ownaddr  in  #2 
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set  var  ow5  to  owncity  in  #2 
set  var  ow6  to  ownstate  in  #2 
set  var  ow7  to  ownzip  in  #2 
set  var  ow8  to  owntelno  in  #2 
set  var  ow9  to  owndob  in  #2 
set  var  owlO  to  ownid  in  #2 
set  var  vownid  to  ownid  in  #2 
break 
endif 

next  #2  e2 
endwhile 
if  e2  ne  0  then 
newpage 

write  "This  owner  does  not  exist  in  the  database"  + 
at  5  5 

fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 
clear  vowmi 
clear  vowaddr 
clear  vowcity 
set  var  vowst  to  CA 
clear  vowzip 
clear  vowtelno 

set  var  vowdob  to  01/01/1901 
clear  vostatus 

compute  vmaxown  as  max  ownid  from  owners 
if  vmaxown  fails  then 
set  var  vmaxown  to  0 
endif 

set  var  vownid  to  .vmaxown  +  1 
endif 
break 
endwhile 
label  redoown 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  cg4100a3  with  all  at  3 
draw  sarform5  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
if  #return  eq  pgdn  then 
set  error  messages  off 
newpage 
if  e2  eq  0  then 

*(owner  exists  in  database) 
write  "changing  values  in  owner" 
delete  rows  from  #2 
else 

write  "loading  owner" 
endif 
.  load  owners 

.vowlname  .vowfname  .vowmi  .vowaddr  .vowcity  .vowst  + 
..vowzip  .vowtelno  .vowdob  .vownid 
end 
if  e2  eq  0  then 

set  pointer  #2  e2  for  owners  whe  ownid  eq  .owlO 
if  e2  ne  0  then 
load  owners 

.owl  .ow2  .ow3  .ow4  .ow5  .ow6  .ow7  .ow8  .ow9  . owlO 
end 
endif 
endif 

set  error  messages  on 

write  "Return  to  correct  errors?  (N)"  at  15  10 
write  "Note:   correct  only  errors  indicated  by  messages"  + 
at  20  5 

fillin  fixown  using  "("  at  15  36 
if  fixown  exists  and  fixown  eq  Y  then 

goto  redoown 
endif 

set  pointer  #2  e2  for  owvsl  where  vhinown  eq  .wslhin  + 
and  idowner  eq  .vownid 
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*(check  if  record  already  exists) 
newpage 

if  e2  ne  0  then 
load  owvsl 

.wslhin  .vownid 
end 
endif 
endif 
endif 

write  "More  owners  to  enter?  (N)"  at  20  20 
fillin  mrownrs  using  "("  at  20  42 
if  mrownrs  fails  or  mrownrs  eq  N  then 

set  var  more  to  N 
endif 
endwhile 
endif 

*(enter  additional  operators) 
newpage 

write  "Enter  additional  operators?  (N)"  at  12  20 
fillin  addl_opr  using  "("  at  12  48 
if  addl_opr  exists  and  addl_opr  eq  Y  then 
set  var  more  to  "Y" 
while  more  eq  Y  then 

set  var  voplname  to  unk 
set  var  vopfname  to  unk 
newpage 

write  "Press  [PGDN]  after  entering  initial  information  to 
check  if"  at  1  5 

write  "oDerator  exists  in  database.  Press  [ESC]  to  quit"  + 

at  2  10 

draw  cg4100a5  with  all  at  4 

edit  var  return  esc  pgdn 

if  ttreturn  ne  esc  then 

while  voplname  exists  and  vopfname  exists  then  • 

set  pointer  #3  e3  for  operator  where  oplname  =  .voplname 

and  op f name  =  .vopfname 
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while  e3  eq  0  then 

^(operator  last/first  name  exist  in  database) 
set  var  vopmi  to  opmi  in  #3 
set  var  vopdob  to  opdob  in  #3 
set  var  vopaddr  to  opaddr  in  #3 
set  var  vopcity  to  opcity  in  #3 
set  var  vopst  to  opstate  in  #3 
set  var  vopzip  to  opzip  in  #3 
set  var  voptelno  to  optelno  in  #3 
set  var  vopcrse  to  opcourse  in  #3 
newpage 

draw  cg4100a5  with  all  at  3 
draw  cg4100a6  with  all  at  8 
write  "Correct  operator?  (N)"  at  21  20 
fillin  opfound  using  "("  at  21  39 
if  opfound  exists  and  opfound  eq  Y  then 
sec  var  opl  to  .voplname 
set  var  op2  to  .vopfname 
set  var  op3  to  opmi  in  #3 
set  var  op4  to  opaddr  in  #3 
set  var  op5  to  opcity  in  #3 
set  var  op6  to  opstate  in  #3 
set  var  op7  to  opzip  in  #3 
set  var  op8  to  optelno  in  #3 
set  var  op9  to  opdob  in  #3 
set  var  oplO  to  opcourse  in  #3 
set  var  opll  to  opid  in  #3 
set  var  vopid  to  opid  in  #3 
break 
endif 

next  #3  e3 
endwhile 
if  e3  ne  0  then 
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newpage 

write  "This  operator  does  not  exist  in  the  database" 

at  5  5 

fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 

clear  vopmi 

clear  vopaddr 

clear  vopcity 

set  var  vopst  to  CA 

clear  vopzip 

clear  voptelno 

clear  vopcrse 

set  var  vopdob  to  01/01/1901 

compute  vmaxoper  as  max  opid  from  operator 

if  vmaxoper  fails  then 

set  var  vmaxoper  to  0 
endif 

set  var  vopid  to  .vmaxoper  +  1 
endif 
break 
endwhile 
label  redooper 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  cg4100a5  with  all  at  3 
draw  cg4100a6  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
if  #return  eq  pgdn  then 
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set  error  messages  off 
if  e3  eq  0  then 

^(operator  exists  in  database) 
write  "changing  values  in  operator" 
delete  rows  from  #3 
else 

write  "loading  operator" 
endif 
load  operator 

.voplname  .vopfname  .vopmi  .vopaddr  .vopcity  .vopst  + 
.vopzip  .voptelno  .vopdob  .vopcrse  .vopid 
end 
if  e3  eq  0  then 

set  pointer  #3  e3  for  operator  where  opid  eq  .opll 
if  e3  ne  0  then 
load  operator 

.opl  .op2  .op2  .op3  .op4  .op5  .op6  .op7  .op8  .op9  + 
.oplO  .opll 
end 
endif 
endif 

set  error  messages  on 

write  "Return  to  correct  errors?  (N)"  at  15  10 
write  "Note:   correct  only  errors  indicated  by  messages"  + 
at  20  5 

fillin  fixopr  using  "("  at  15  36 
if  fixopr  exists  and  fixopr  eq  Y  then 

goto  redooper 
endif 

set  pointer  #3  e3  for  opvsl  where  vhinoper  eq  .wslhin  + 
and  idoper  eq  .vopid 
*(check  if  record  already  exists) 
newpage 

if  e3  ne  0  then 
load  opvsl 

.wslhin  .vopid 
end 
endif 
endif 
endif 

write  "More  operators  to  enter?  (N)"  at  20  20 
fillin  mropers  using  "("  at  20  45 
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if  mropers  fails  or  mropers  eq  N  then 

set  var  more  to  N 
endif 
endwhile 
endif 
newpage 

write  "Enter  another  sar  with  boarding?  (Y)"  at  12  20 
fillin  cont  using  "("  at  12  53 
if  cont  fails  or  cont  eq  Y  then 

*(reset  variables  to  start  condition) 
clear  all  variables 
set  var  pg  to  1 
set  var  review  to  "N" 
set  var  loadmenu  to  "N" 
break 
else 

set  null  -0- 
set  var  pg  to  0 
endif 
endif 

if  choice  eq  3  then 
set  var  review  to  "Y" 
set  var  pg  to  1 
endif 
endwhile 
else 
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write  "Enter  another  sar  with  boarding?  (Y)"  at  12  20 
fillin  cont  using  "("  at  12  53 
if  cont  fails  or  cont  eq  Y  then 

*(reset  variables  to  start  condition) 
clear  all  variables 
set  var  pg  to  1 
set  var  review  to  "N" 
set  var  loadmenu  to  "N" 
else 

set  error  messages  off 
set  null  -0- 
set  var  pg  to  0 
endif 
endif 
if  pg  eq  1  then 

goto  begin 
endif 
return 
*(  end  ) 


$ COMMAND 

ADD  SUT 

*(**"******************************************************************** 

Program:  Add  Sar  Units 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:  August  1987 

Description:  This  program  allows  the  user  to.  input  sar 

unit  "data. 

Tables  Used-:  sar,  sarunits 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  sarform8 

***************************************************************** 


set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 
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write  "Program  loading  in  progress.  Please  stand  by  "  at  10  10 

clear  all  variables 
set  null  ? 
set  var  more  to  Y 
set  var  vfoldno  text 
set  var  vunit  text 
while  more  eq  Y  then  *(main  loop) 
set  var  done  to  Y 
newpage 

write  "Enter  folder  number  of  sar  case:  "  at  10  5 
fillin  vfoldno  using  "  "  at  10  37 

write  "Enter  name  or  sar  unit  to  be  added:  "  at  15  5 
fillin  vunit  using  "  "  at  15  40 
if  vfoldno  exists  and  vunit  exists  then 

set  pointer  #1  el  for  sar  where  folderno  eq  .vfoldno 
if  el  eq  0  then 

set  pointer  #2  e2  for  sarunits  where  foldno  eq  .vfoldno  and  + 
unitname  eq  .vunit 
if  e2  eq  0  then 
newpage 

write  "This  record  already  exists  in  the  database"  at  15  15 
write  "Press  any  key  to  continue"  at  18  20 
pause 
else 

set  var  vuwtime  to  sartime  in  #1 
set  var  vuwdate  to  sardate  in  #1 
set  var  vetadate  to  sardate  in  #1 
set  var  vdateos  to  sardate  in  #1 
set  var  vaigdate  to  sardate  in  #1 
set  var  vtowdate  to  sardate  in  #1 
set  var  vdvmoord  to  sardate  in  #1 
set  var  vsumoord  to  sardate  in  #1 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  sarform8  with  all  at  3 

edit  var  vunit  vuwtime  vuwdate  voseta  vetadate  vostime  vdateos  + 
valgtime  vaigdate  vtowtime  vtowdate  vdvmoort  vdvmoord  vsumoort  + 
vsumoord  return  esc  pgdn 
if  #return  eq  pgdn  then 
if  voseta  tails  then 
clear  vetadate 
set  var  vetadate  date 
endif 

if  vostime  fails  then 
clear  vdateos 
set  var  vdateos  date 
endif 

if  valgtime  fails  then 
clear  vaigdate 
set  var  vaigdate  date 
endif 

if  vtowtime  fails  then 
clear  vtowdate 
set  var  vtowdate  date 
endif 

if  vdvmoort  fails  then 
clear  vdvmoord 
set  var  vdvmoord  date 
endif 

if  vsumoort  fails  then 
clear  vsumoord 
set  var  vsumoord  date 
endif 
load  sarunits 

.vfoldno  .vunit  .vuwtime  .vuwdate  .voseta  .vetadate  + 
.vostime  .vdateos  .valgtime  .vaigdate  .vtowtime  + 
.vtowdate  .vdvmoort  .vdvmoord  .vsumoort  .vsumoord 
end 
endif 
endif 
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else 
newpage 

write  "This  folder  number  does  not  exist  in  the  database"  at  10  10 
write  "Do  you  wish  to  reenter  folder  number?  (Y)"  at  15  10 
fillin  reenter  using  "("  at  15  48 
if  reenter  fails  or  reenter  eq  Y  then 

set  var  done  to  N 
endif 
endif 
endif 

if  done  eq  Y  then 
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write  "More  sar  units  to  enter?  (N)"  at  15  20 
fillin  mrunits  using  "("  at  15  45 
if  mrunits  fails  or  mrunits  eq  N  then 

set  var  more  to  N 
else 

clear  all  variables 
set  var  more  to  Y 
endif 
endif 
endwhile  *(end  main  loop) 
set  error  messages  off 
set  null  -0- 
return 
*(  end  ) 


$ COMMAND 
ADD  BRD 

* ( *x************************^ 

Program:  Add  Boarding 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:      July  1987 

This  program  allows  the  user  to  input 

boarding  information. 

boarding,  vessel,  owners,  operator,  owvsl, 

opvsl, 

none 
Reports  Used:  none 
Forms  Used:       cg4100al,  cg4100a2,  cg4100a3,  cg4100a4, 

cg4100a5,  cg4100a6,  cg4100a7,  cg4100a8, 

cg4100a9,  sarform5 


Description 
Tables  Used 
Temp  Tables 


set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.  Please  stand  by  "  at  10  10 

clear  all  variables 

set  null  ? 

set  var  pg  to  1 

*( initialize  edit  and  load  control  variables) 

set  var  review  to  N 

set  var  loadmenu  to  N 

label  begin 

set  var  backup  to  N 

set  var  fixhin  to  N 

set  var  pgcount  to  0 

while  pg  gt  0  then  *(main  loop) 

newpage 

if  pg  eq  1  then 

*(enter  boarding/vessel  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  1 
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set  var  vbodate  to  .#date 
set  var  vbotime  to  12:00:00 
set  var  wslname  to  unk 

write  "Press  [PGDN]  after  entering  initial  information  to  check  + 
if"  at  1  5 

write  "vessel  exists  in  database.   Press  [ESC]  to  quit"  at  2  10 
draw  cg4100al  with  all  at  4 
edit  var  return  esc  pgdn 
else 

write  "Press  [PGDN]  after  review/correction  or  [ESC]  to  quit"  + 

at  1  5 

draw  cg4100al  with  all  at  4 

if  fixhin  eq  N  then 

edit  var  wslname  vbodate  vbotime  vbono  wslno  return  esc  pgdn 
else 

edit  var  return  esc  pgdn 
endif 
endif 
if  ttreturn  ne  esc  then 

if  review  eq  N  and  backup  eq  N  or  fixhin  eq  Y  then 
set  var  pgcount  to  1 
while  vvslhin  exists  then 

set  pointer  #1  el  for  vessel  where  vslhin  =  .wslhin 
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set  var  wslpob  to  0 

set  var  vadult  to  0 

set  var  vchild  to  0 

if  el  eq  0  then 

*(vessel  exists  in  database) 

set  var  wslno  to  vslno  in  #1 

set  var  wslname  to  vslname  in  #1 

set  var  wslmake  to  vslmake  in  #1 

set  var  wslmod  to  vslmodel  in  #1 

set  var  wslyear  to  vslyear  in  #1 

set  var  wslton  to  vsltons  in  #1 

set  var  wslft  to  vsllenft  in  #1 

set  var  wslin  to  vsllenin  in  #1 

set  var  wslhp  to  vslhp  in  #1 

set  var  wsluse  to  vsluse  in  #1 

set  var  wsltype  to  vsltype  in  #1 

set  var  wslprop  to  vslprop  in  #1 

set  var  wslhull  to  vslhull  in  #1 

set  var  wsleng  to  vsleng  in  #1 

set  var  wslfuel  to  vslfuel  in  #1 

set  var  vconstr  to  vslconst  in  #1 

set  var  vdecal  to  cmedecal  in  #1 

set  var  vcmeyear  to  cmeyear  in  #1 

set  var  voffho  to  vslofrno  in  #1 

sec  var  vhome  to  homeport  in  #1 

set  var  vcall  to  vslcall  in  #1 

set  var  walue  to  vslvalue  in  #1 

set  var  vsuper  to  vslsuper  in  #1 

set  var  vmasts  to  vslmasts  in  #1 

set  var  vsailno  to  sailno  in  #1 

set  var  vhlcolor  to  hlcolor  in  #1 

set  var  vtrcolor  to  trcolor  in  #1 

set  var  vslcolor  to  slcolor  in  #1 

set  var  vcbcolor  to  cbcolor  in  #1 

set  var  vdkcolor  to  dkcolor  in  #1 

set  var  vmarks  to  vslmarks  in  #1 

set  var  vl  to  vslno  in  #1 

set  var  v2  to  vslname  in  #1 

set  var  v3  to  vslhin  in  #1 

set  var  v4  to  vslmake  in  #1 

set  var  v5  to  vslmodel  in  #1 

set  var  v6  to  vslyear  in  #1 

set  var  v7  to  vsltons  in  #1 

set  var  v8  to  vsllenft  in  #1 

set  var  v9  to  vsllenin  in  #1 

set  var  vlO  to  vslhp  in  #1 
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set  var  vll  to  vsluse  in  #1 
set  var  vl2  to  vsltype  in  #1 
set  var  vl3  to  vslprop  in  #1 
set  var  vl4  to  vslnull  in  #1 
set  var  vl5  to  vsleng  in  #1 
set  var  vl6  to  vslfuel  in  #1 
set  var  vl7  to  vslconst  in  #1 
set  var  vl8  to  cmedecal  in  #1 
set  var  vl9  to  cmeyear  in  #1 
set  var  v20  to  vsloffno  in  #1 
set  var  v21  to  homeport  in  #1 
set  var  v22  to  vslcall  in  #1 
set  var  v23  to  vslvalue  in  #1 
set  var  v24  to  vslsuper  in  #1 
set  var  v25  to  vslmasts  in  #1 
set  var  v26  to  sailno  in  #1 
set  var  v27  to  hlcolor  in  #1 
set  var  v28  to  trcolor  in  #1 
set  var  v29  to  slcolor  in  #1 
set  var  v30  to  cbcolor  in  #1 
set  var  v31  to  dkcolor  in  #1 
set  var  v32  to  vslmarks  in  #1 
else 

^(vessel  does  not  exist  in  database) 
set  var  wslmake  to  unk 
set  var  wslmod  to  unk 
set  var  vvslyear  text 
set  var  wslyear  to  1901 
set  var  wslnp  text 
set  var  wslhp  to  0 
set  var  wsluse  text 
set  var  wsluse  to  0 
set  var  wsltype  text 
set  var  wsltype  to  9 
set  var  wslprop  text 
set  var  wslprop  to  9 
set  var  wslnull  text . 
set  var  wslnull  to  8 
set  var  wsleng  text 
set  var  wsleng  to  0 
set  var  wslfuel  text 
set  var  wslfuel  to  0 
set  var  vconstr  text 
set  var  vconstr  to  0 
set  var  wslton  to  0 
set  var  wslft  to  0 
set  var  wslin  to  0 
set  var  vdecal  to  N 
endif 
break 
endwhile 
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write  "Press  [ESC]  to  quit  or  [PGDN]  to  move  down  a  page"  at  1  1 
draw  cg4100al  with  all  at  3 
draw  cg4100a2  with  all  at  10 
edit  var  return  esc  pgdn 
endif  • 
endif 
endif 

if  pg  eq  2  then 
*(enter  owner  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  2 
set  var  vowlname  to  unk 
set  var  vowfname  to  unk 

write  "Press  [PGDN]  after  entering  initial  information  to  check  + 
if"  at  1  5 

write  "owner  exists  in  database.  Press  [ESC]  to  quit"  at  2  10 
draw  cg4100a3  with  all  at  4 
edit  var  return  esc  pgdn 
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endif 

if  #return  ne  esc  then 

if  review  eg  N  and  backup  eq  N  then 

while  vowlname  exists  and  vowfname  exists  then 

set  pointer  #2  e2  for  owners  where  ownlname  =  .vowlname  and  + 

ownfname  =  .vowfname 

newpage 

while  e2  eg  0  then 

*(owner  last/first  name  exist  in  database) 
set  var  vowmi  to  ownmi  in  #2 
set  var  vowdob  to  owndob  in  #2 
set  var  vowaddr  to  ownaddr  in  #2 
set  var  vowcity  to  owncity  in  #2 
set  var  vowst  to  ownstate  in  #2 
set  var  vowzip  to  ownzip  in  #2 
set  var  vowtelno  to  owntelno  in  #2 
newpage 

draw  cg4100a3  with  all  at  3 
draw  cg4100a4  with  all  at  3 
write  rfCorrect  owner?  (N)"  at  21  20 
fillin  owfound  using  "("  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
set  var  owl  to  .vowlname 
set  var  ow2  to  .vowfname 
set  var  ow3  to  ownmi  in  #2 
set  var  ow4  to  ownaddr  in  #2 
set  var  ow5  to  owncity  in  #2 
set  var  ow6  to  ownstate  in  #2 
set  var  ow7  to  ownzip  in  #2 
set  var  ow8  to  owntelno  in  #2 
set  var  ow9  to  owndob  in  #2 
set  var  owlO  to  ownid  in  #2 
set  var  vownid  to  ownid  in  #2 
break 
endif 

next  #2  e2 
endwhile 
if  e2  ne  0  then 
newpage 

write  "This  owner  does  not  exist  in  the  database"  at  5  5 
fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 
clear  vowmi 
clear  vowaddr 
clear  vowcity 
set  var  vowst  to  CA 
clear  vowzip 
clear  vowtelno 
set  var  vowdob  to  01/01/1901 
clear  vostatus 

compute  vmaxown  as  max  ownid  from  owners 
if  vmaxown  fails  then 

set  var  vmaxown  to  0 
endif 

set  var  vownid  to  .vmaxown  +  1 
endif 
break 
endwhile 
endif 
newpage 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  cg4100a3  with  all  at  3 
draw  cg4100a4  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
endif 
endif 

if  pg  eq  3  then 
*(enter  operator  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  3 

289 


if  vostatus  eg  1  then 

set  var  voplname  to  .vowlname 
set  var  vopfname  to  .vowfname 
set  var  #return  to  pgdn 
else 

write  "Press  [PGDN]  after  entering  initial  information  to  + 
check  if"  at  1  5 

write  "operator  exists  in  database.  Press  [ESC]  to  quit"  + 
at  2  10 

set  var  voplname  to  unk 
set  var  vopfname  to  unk 
draw  cg4100a5  with  all  at  4 
edit  var  return  esc  pgdn 
endif 
endif 
if  ttreturn  ne  esc  then 

if  review  eg  N  and  backup  eq  N  then 

while  voplname  exists  and  vopfname  exists  then 

set  pointer  #3  e3  for  operator  where  oplname  =  .voplname  and  + 

op f name  =  .vopfname 

newpage 

while  e3  eq  0  then 

^(operator  last/first  name  exist  in  database) 
set  var  vopmi  to  opmi  in  #3 
set  var  vopdob  to  opdob  in  #3 
set  var  vopaddr  to  opaddr  in  #3 
set  var  vopcity  to  opcity  in  #3 
set  var  vopst  to  opstate  in  #3 
set  var  vopzip  to  opzip  in  #3 
set  var  voptelno  to  optelno  in  #3 
set  var  vopcrse  to  opcourse  in  #3 
newpage 

draw  cg4100a5  with  all  at  3 
draw  cg4100a6  with  all  at  8 
write  ^Correct  operator?  (N)"  at  21  20 
fillin  opfound  using  "("  at  21  38 
•  if  opfound  exists  and  opfound  eq  Y  then 
set  var  opl  to  .voplname 
set  var  op2  to  .vopfname 
set  var  op3  to  opmi  in  #3 
set  var  op4  to  opaddr  in  #3 
set  var  op5  to  opcity  in  #3 
set  var  op6  to  opstate  in  #3 
set  var  op7  to  opzip  in  #3 
set  var  op8  to  optelno  in  #3 
set  var  op9  to  opdob  in  #3 
set  var  oplO  to  opcourse  in  #3 
set  var  opll  to  opid  in  #3 
set  var  vopid  to  bpid  in  #3 
break 
endif 

next  #3  e3 
endwhile 
if  e3  ne  0  then 
newpage 

write  "This  operator  does  not  exist  in  the  database"  at  5  5 
fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 
if  vostatus  eq  1  then 
set  var  vopmi  to  .vowmi 
set  var  vopaddr  to  .vowaddr 
set  var  vopcity  to  .vowcity 
set  var  vopst  to  .vowst  . 
set  var  vopzip  to  text 
set  var  vopzip  to  .vowzip 
set  var  voptelno  to  text 
set  var  voptelno  to  .vowtelno 
set  var  vopdob  to  .vowdob 
else 

clear  vopmi 
clear  vopaddr 
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clear  vopcity 
set  var  vopst  to  CA 
clear  vopzip 
clear  voptelno 
set  var  vopdob  to  01/01/1901 
endif 

clear  vopcrse 

compute  vmaxop  as  max  opid  from  operator 
if  vmaxop  fails  then 

set  var  vmaxop  to  0 
endif 

set  var  vopid  to  .vmaxop  +  1 
endif 
break 
endwhile 
endif 
newDage 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  cg4100a5  with  all  at  3 
draw  cg4100a6  with  all  at  3 
if  vostatus  eq  1  then 

edit  var  vopcrse  return  esc  pgup  pgdn 
else 

edit  var  return  esc  pgup  pgdn 
endif 
endif 
endif 
if  pg  eq  4  then 

*(enter  boarding  location  information) 
if  review  eq  N  and  backup  eq  N  then 
set  var  pgcount  to  4 
set  var  vobsbody  to  text 
set  var  vobsbody  to  "Monterey  Bay" 
set  var  vobcount  to  Monterey 
set  var  vobscity  to  Monterey 
set  var  vobstate  to  CA 
set  var  vobslat  to  00.000 
set  var  vobslong  to  000.000 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  down  + 
a  paqe"  at  1  1 

draw  cg4100a7  with  all  at  3 
edit  var  return  esc  pgup  pgdn 
endif 
if  pg  eq  5  then 

*(enter  boarding  violation/unsafe  condition  information) 
if  review  eq  N  and  backup  eq  N  then 

set  var  pgcount  to  5 
endif 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up,  [PGDN]  to  move  + 
down  a  page"  + 

draw  cg4100a8  with  all  at  3 
edit  var  return  esc  pgup  pgdn 
endif 
if  pg  eq  6  then 

*(enter  boarding  officer  information) 
if  review  eq  N  and  backup  eq  N  then 

set  var  pgcount  to  6 

set  var  vbounit  text 

set  var  vbounit  to  "CG  Group  Monterey" 

set  var  vbodist  text 

set  var  vbodist  to  11 

set  var  vboopfac  text 

set  var  vboopfac  to  36268 

set  var  vbosrise  to  06:00:00 

set  var  vbosset  to  19:00:00 

set  var  weapons  to  0 
endif 
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write  "Press  [ESC]  to  quit  or  [PGUP]  to  move  up  a  page"  at  1  1 
draw  cg4100a9  with  all  at  3 
edit  var  return  esc  pgup 
set  var  loadmenu  to  1,Y" 
endif 

if  ttreturn  eq  pgup  then 
set  var  backup  to  Y 
if  pg  gt  1  then 

set  var  pg  to  .pg  -  1 
else 

set  var  pg  to  1 
endif 
endif 

if  #return  eq  pgdn  then 
if  pg  It  6  then 

set  var  og  to  .pg  +  1 
if  pgcouht  It  .pg  then 

set  var  backup  to  N 
endif 
else 

set  var  pg  to  6 
endif 
endif 
if  #return  eq  esc  then 

set  var  pg  to  0 
endif 
endwhile  *(end  of  main  loop) 
newpage 

write ""Program  loading  in  progress.  Please  stand  by  "  at  10  10 

if  loadmenu  eq  "Y"  then 
set  var  choice  to  0 

while  choice  It  1  or  choice  gt  3  then 
newpage 
write  "Data  Load  Options"  at  2  20 

write  " "  at  3  20 

write  "Enter:"  at  5  20 

write  "1-To  load  the  data  into  the  database"  at  6  20 

write  "2-To  ignore  the  data  entered"  at  7  20 

write  "3-To  go  back  and  verify  data  entered"  at  8  20 

write  "Your  choice:  "  at  10  20 

fillin  choice  using  "  "  at  10  33 

newpage 

if  choice  eq  1  then 

*(test  for  required  information) 
set  var  test  to  "F" 

if  vbodate  exists  and  vbotime  exists  and  vbono  exists  and  + 
wslname  exists  and  vobslat  exists  and  vobslong  exists  and  + 
wslhin  exists  then 
if  wiol54  exists  or  vviol55  exists  or  wiol56  exists  or  + 
wiol57  exists  or  wiol58  exists  or  wiol59  exists  or  wiol60  + 
exists  or  wiol61  exists  or  wiol62  exists  or  wiol63  exists  then 

set  var  test  to  "T" 
endif 

if  wiol64  exists  or  wiol65  exists  or  wiol66  exists  or  + 
wiol67  exists  or  wiol68  exists  or  vuns69  exists  or  vuns70  + 
exists  or  vuns71  exists  or  vuns72  exists  or  vuns73  exists  then 

set  var  test  to  "T" 
endif 

if  vuns74  exists  or  vuns75  exists  or  vuns76  exists  or  vuns77  + 
exists  or  vuns78  exists  or  vuns79  exists  then 

set  var  test  to  "T" 
endif 

if  test  eq  "T"  then 
set  error  messages  off 
if  el  eq  0  then 

*(vessel  exists  in  database) 
write  "changing  values  in  vessel" 
delete  rows  from  #1 
else 

write  "loading  vessel" 
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set  var  voffno  text 

set  var  vhome  text 

set  var  vcall  text 

set  var  walue  dollar 

set  var  walue  to  $0 

set  var  vsuper  text 

set  var  vmasts  text 

set  var  vsailno  text 

set  var  vhlcolor  to  unk 

set  var  vtrcolor  to  unk 

set  var  vslcolor  to  unk 

set  var  vcbcolor  to  unk 

set  var  vdkcolor  to  unk 

set  var  vmarks  text 
endif 
load  vessel 

.wslno  .wslname  .wslhin  .wslmake  .wslmod  .wslyear  + 

.wslton  .wslft  .wslin  .wslhp  .wsluse  .wsltype  + 

.wslprop  .wslhull  .vvsleng  .wslfuel  .vconstr  .vdecal  + 

.vcmeyear  .voffno  .vhome  .vcall  .walue  .vsuper  .vmasts  + 

.vsailno  .vhlcolor  .vtrcolor  .vslcolor  .vcbcolor  .vdkcolor  + 

.vmarks 
end 
if  el  eq  0  then 

set  pointer  #1  el  for  vessel  whe  vslhin  eq  ,v3 

if  el  ne  0  then 
load  vessel 

.vl  .v2  .v3  ,v4  .v5  .v6  .v7  .v8  .v9  .vlO  .vll  .vl2  + 
.vl3  .vl4  .vl5  .vl6  .vl7  .vl3  ,vl9  .v20  .v21  .v22  .v23  + 
.v24  .v25  ,v26  .v27  .v28  .v29  .v30  .v31  .v32 
end 

endif 
endif 

write  "loading  owvsl" 
load  owvsl 

.wslhin  .vownid 
end 

write  "loading  opvsl" 
load  opvsl 

.wslhin  .vopid 
end 
if  vostatus  eq  1  then 

load  opown 

.vownid  .vopid 

end 
endif 

set  pointer  #1  el  for  boarding  where  bono  =  .vbono 
if  el  eq  Q  then 

set  var  difbo  to  "F" 

set  var  bl  to  bodate  in  #1 

set  var  b2  to  botime  in  #1 

set  var  b3  to  obslat  in  #1 

set  var  b4  to  obslong  in  #1 

if  bl  ne  .vbodate  or  b2  ne  .vbotime  or  b3  ne  .vobslat  or  + 

b4  ne  .vobslong  then 
set  var  difbo  to  "T" 

endif 
else 

set  var  difbo  to  "T" 
endif 
if  difbo  eq  T  then 

write  "loading  boarding" 

load  boarding 

.vbodate  .vbotime  .vbono  .wslpob  .vadult  .vchild  + 
.vostatus  .vobsbody  .vobcount  .vobscity  .vobstate  + 
.vobslat  .vobslong  .wiol54  .wiol55  .wiol56  .wiol57  + 
.wiol58  .wiol59  .wiol60  .wiol61  .wiol62  .wiol63  + 
.wiol64  .wiol65  .wiol66  .wiol67  .wiol68  .vuns69  + 
.vuns70  .vuns71  .vuns72  .vuns73  .vuns74  .vuns75  .vuns76  + 
.vuns77  .vuns78  .vuns79  .vboreml  .vborem2  ,vborem3  + 
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.vboname  .vborate  .vbounit  .vbodist  .vboopfac  .vboday  + 
.vbosrise  .vbosset  .wslhin  .weapons 

end 
endif 
if  e2  eq  0  then 

*(owner  exists  in  database) 

write  "changing  values  in  owner" 

delete  rows  from  #2 
else 

write  "loading  owner" 
endif 
load  owners 

.vowlname  .vowfname  .vowmi  .vowaddr  .vowcity  .vowst  .vowzip  + 

.vowtelno  .vowdob  .vownid 
end 
if  e2  eq  0  then 

set  pointer  #2  e2  for  owners  whe  ownid  eq  .owlO 

if  e2  ne  0  then 
load  owners 

.owl  .ow2  .  ow3  .ow4  .ow5  .ow6  .ow7  .ow8  .ow9  .owlO 
end 

endif 
endif 
if  e3  eq  0  then 

^(operator  exists  in  database) 

write  "changing  values  in  operator" 

delete  rows  from  #3 
else 

write  "loading  operator" 
endif 
load  operator 

.voplname  .vopfname  .vopmi  .vopaddr  .vopcity  .vopst  .vopzip  + 

.voptelno  .vopdob  .vopcrse  .vopid 
end 
if  e3  eq  0  then 

set  pointer  #3  e3  for  operator  where  opid  eq  .opll 

if  e3  ne  0  then 
load  operator 

•opl  .op2  .op2  .op3  .op4  .op5  .op6  .op7  .op8  .op9  .oplO  + 
.opll 
end 

endif 
endif 

set  error  messages  on 
write  "  " 

*(return  option  in  case  of  entry/edit  errors) 
write  "Return  to  correct  data  entered?  (Y)"  at  20  10 
write  "Note:   correct  only  errors  indicated  by  messages"  + 
at  22  5 

fillin  er  using  "("  at  20  42 
if  er  fails  or  er  eq  "Y"  then 

set  var  review  to  "Y" 

set  var  pg  to  1 

set  pointer  #1  el  for  vessel  where  vslhin  eq  .wslhin 

set  pointer  #2  e2  for  owners  where  ownid  eq  .vownid 

set  pointer  #3  e3  for  operator  where  opid  eq  .vopid. 

break 
else 

newpage 

write  "Removing  duplicate  entries  from  tables"  at  10  10 

write  "Please  stand  by "  at  15  12 

delete  duplicates  from  vessel 

delete  duplicates  from  owvsl 

delete  duplicates  from  opvsl 

delete  duplicates  from  opown 

delete  duplicates  from  owners 

delete  duplicates  from  operator 


endif 
endif 
else 
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newpage 

write  "Load  not  performed.  Required  information  missing."  + 
at  5  20 

write  "Required  information  includes:"  at  10  30 
write  "Boarding  Date,  Boarding  Time,  Boarding  Number"  at  12  35 
write  "Vessel  Name,  Boarding  Latitude,  Boarding  Longitude"  + 
at  13  35 

write  "Vessel  HIN,  A  Violation  or  Unsafe  Condition"  at  14  35 
fillin  go  using  "Press  [ENTER]  to  return  to  data  entry"  at  16  25 
set  var  pg  to  I 
set  var  review  to  Y 
if  wslhin  fails  then 
set  var  fixhin  to  Y 
endif 
break 
endif 
endif 

if  choice  eg  1  or  choice  eq  2  then 
*(enter  additional  owners) 
newpage 

write  "Enter  additional  owners?  (N)"  at  12  20 
fillin  addl_own  using  "("  at  12  45 
if  addl_own  exists  and  addl_own  eq  Y  then 
set  var  more  to  "Y" 
while  more  eq  Y  then 

set  var  vowlname  to  unk 
set  var  vowfname  to  unk 
newpage 

write  "Press  [PGDN]  after  entering  initial  information  to  + 
check,  if"  at  1  5 

write  "owner  exists  in  database.   Press  [ESC]  to  quit"  + 

at  2  10 

draw  cg4100a3  with  all  at  4 

edit  var  return  esc  pgdn 

if  ttreturn  ne  esc  then 

while  vowlname  exists  and  vowfname  exists  then 

set  pointer  #2  e2  for  owners  where  ownlname  =  .vowlname  + 

and  ownfname  =  .vowfname 

newpage 

while  e2  eg  0  then 

*(owner  last/first  name  exist  in  database) 
set  var  vowmi  to  ownmi  in  #2 
set  var  vowdob  to  owndob  in  #2 
set  var  vowaddr  to  ownaddr  in  #2 
set  var  vowcity  to  owncity  in  #2 
set  var  vowst  to  ownstate  in  #2 
set  var  vowzip  to  ownzip  in  #2 
set  var  vowtelno  to  owntelno  in  #2 
newpage 

draw  cg4100a3  with  all  at  3 
draw  cg4100a4  with  all  at  8 
write  "Correct  owner?  (N)"  at  21  20 
fillin  owfound  using  "("  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
set  var  owl  to  .vowlname 
set  var  ow2  to  .vowfname 
set  var  ow3  to  ownmi  in  #2 
set  var  ow4  to  ownaddr  in  #2 
set  var  ow5  to  owncity  in  #2 
set  var  ow6  to  ownstate  in  #2 
set  var  ow7  to  ownzip  in  #2 
set  var  ow8  to  owntelno  in  #2 
set  var  ow9  to  owndob  in  #2 
set  var  owlO  to  ownid  in  #2 
set  var  vownid  to  ownid  in  #2 
break 
endif 

next  #2  e2 
endwhile 
if  e2  ne  0  then 
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write  "This  owner  does  not  exist  in  the  database"  at  5  5 

fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 

clear  vowmi 

clear  vowaddr 

clear  vowcity 

set  var  vowst  to  CA 

clear  vowzip 

clear  vowtelno 

set  var  vowdob  to  01/01/1901 

compute  vmaxown  as  max  ownid  from  owners 

if  vmaxown  fails  then 

set  var  vmaxown  to  0 
endif 

set  var  vownid  to  .vmaxown  +  1 
endif 
break 
endwhile 
label  redoown 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  cg4100a3  with  all  at  3 
draw  sarform5  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
if  ttreturn  eq  pgdn  then 
newpage 

set  error  messages  off 
if  e2  eq  0  then 

*(owner  exists  in  database) 
write  "changing  values  in  owner" 
delete  rows  from  #2 
else 

write  "loading  owner" 
endif 
load  owners 

.vowlname  .vowfname  .vowmi  .vowaddr  .vowcity  .vowst  + 
.  .vowzip  .vowtelno  .vowdob  .vownid 
end 
if  e2  eq  0  then 

set  pointer  #2  e2  for  owners  where  ownid  eq  .owlO 
if  e2  ne  0  then 
load  owners 

.owl  .ow2  .ow3  .ow4  .ow5  .ow6  .ow7  ,ow8  .ow9  .owlO 
end 
endif 
endif 

set  error  messages  on 

write  "Return  to  correct  errors?  (N)"  at  15  10 
write  "Note:  correct  only  errors  indicated  by  messages"  + 
at  20  5 

fillin  fixown  using  "("  at  15  36 
if  fixown  exists  and  fixown  eq  Y  then 

set  pointer  #2  e2  for  owners  where  ownid  eq  .vownid 
goto  redoown 
endif 

set  pointer  #2  e2  for  owvsl  where  vhinown  eq  .wslhin  + 
and  idowner  eq  .vownid 
*(check  if  record  already  exists) 
newpage 

if  e2  ne  0  then 
load  owvsl 

.wslhin  .vownid 
end 
endif 
endif 
endif 

write  "More  owners  to  enter?  (N)"  at  20  20 
fillin  mrownrs  using  "("  at  20  42 
if  mrownrs  fails  or  mrownrs  eq  N  then 
set  var  more  to  N 
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endif 
endwhile 
endif 

*(enter  additional  operators) 
newpage 

write  "Enter  additional  operators?  (N)"  at  12  20 
fillin  addl_opr  using  "("  at  12  48 
if  addl_opr  exists  and  addl_opr  eq  Y  then 
set  var  more  to  "Y" 
while  more  eq  Y  then 
set  var  voplname  to  unk 
set  var  vopfname  to  unk 
newpage 

write  "Press  [PGDN]  after  entering  initial  information  to  + 
check  if"  at  1  5 

write  "operator  exists  in  database.   Press  [ESC]  to  quit"  + 

at  2  10 

draw  cg4100a5  with  all  at  4 

edit  var  return  esc  pgdn 

if  #return  ne  esc  then 

while  voplname  exists  and  vopfname  exists  then 

set  pointer  #3  e3  for  operator  where  oplname  =  .voplname  + 

and  op f name  =  .vopfname 

newDage 

while  e3  eq  0  then 

^(operator  last/first  name  exist  in  database) 
set  var  vopmi  to  opmi  in  S3 
set  var  vopdob  to  opdob  in  #3 
set  var  vopaddr  to  opaddr  in  #3 
set  var  vopcity  to  opcity  in  #3 
set  var  vopst  to  opstate  in  #3 
set  var  vopzip  to  opzip  in  #3 
set  var  voptelno  to  optelno  in  #3 
set  var  vopcrse  to  opcourse  in  #3 
newpage 

draw  cg4100a5  with  all  at  3 
draw  cg4100a6  with  all  at  8 
write  rfCorrect  operator?  (N)"  at  21  20 
fillin  opfound  using  "("  at  21  38 
if  opfound  exists  and  opfound  eq  Y  then 
set  var  opl  to  .voplname 
set  var  op2  to  .vopfname 
set  var  op3  to  opmi  in  #3 
set  var  op4  to  opaddr  in  #3 
set  var  op5  to  opcity  in  #3 
set  var  op6  to  opstate  in  #3 
set  var  op7  to  opzip  in  #3 
set  var  op8  to  optelno  in  #3 
set  var  op9  to  opdob  in  S3 
set  var  oplO  to  opcourse  in  S3 
set  var  opll  to  opid  in  #3 
set  var  vopid  to  opid  in  #3 
break 
endif 

next  #3  e3 
endwhile 
if  e3  ne  0  then 
newpage 

write  "This  operator  does  not  exist  in  the  database"  + 
at  5  5 

fillin  go  using  "Press  [ENTER]  to  continue"  at  9  5 
clear  vopmi 
clear  vopaddr 
clear  vopcity 
set  var  vopst  to  CA 
clear  vopzip 
clear  voptelno 
clear  vopcrse 

set  var  vopdob  to  01/01/1901 
compute  vmaxoper  as  max  opid  from  operator 
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if  vmaxoper  fails  then 

set  var  vmaxoper  to  0 
endif 

set  var  vopid  to  .vmaxoper  +  1 
endif 
break 
endwhile 
label  redooper 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  cg4100a5  with  all  at  3 
draw  cg4100a6  with  all  at  8 
edit  var  return  esc  pgup  pgdn 
if  #return  eq  pgdn  then 
newpage 

set  error  messages  off 
if  e3  eq  0  then 

^(operator  exists  in  database) 
write  "changing  values  in  operator" 
delete  rows  from  #3 
else 

write  "loading  operator" 
endif 
load  operator 

.vopmame  .vopfname  .vopmi  .vopaddr  .vopcity  .vopst  + 
. vopzip  .voptelno  .vopdob  .vopcrse  .vopid 
end 
if  e3  ea  0  then 

set  pointer  #3  e3  for  operator  where  opid  eq  .opll 
if  e3  ne  0  then 
load  operator 

. opl  .op2  .op2  .op3  .op4  .op5  .op6  .op7  .op8  .op9  + 
.oplO  .opll 
end 
endif 
endif 

set  error  messages  on 

write  "Return  to  correct  errors?  (N)"  at  15  10 
write  "Note:  correct  only  errors  indicated- by  messages"  + 
at  20  5 

fillin  fixopr  using  "("  at  15  36 
if  fixopr  exists  and  fixopr  eq  Y  then 

set  pointer  #3  e3  for  operator  where  opid  eq  .vopid 
goto  redooper 
endif 

set  pointer  #3  e3  for  opvsl  where  vhinoper  eq  .wslhin  + 
and  idoper  eq  .vopid 
*(check  if  record  already  exists) 
newpage 

if  e3  ne  0  then 
load  opvsl 

.wslhin  .vopid 
end 
endif 
endif 
endif 

write  "More'  operators  to  enter?  (N)"  at  20  20 
fillin  mropers  using  "("  at  20  45 
if  mropers  fails  or  mropers  eq  N  then 

set  var  more  to  N 
endif 
endwhile 
endif 
newpage 

write  "Enter  another  boarding?  (Y)"  at  12  20 
fillin  cont  using  "("  at  12  44 
if  cont  fails  or  cont  eq  Y  then 

*(reset  variables  to  start  condition) 
clear  all  variables 
set  var  pg  to  1 
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set  var  review  to  "N" 
set  var  loadmenu  to  "N" 
break 
else 

set  null  -0- 
set  var  pg  to  0 
endif 
endif 

if  choice  eq  3  then 
set  var  review  to  "Y" 
set  var  pg  to  1 
endif 
endwhile 
else 

newpage 

write  "Enter  another  boarding?  (Y)"  at  12  20 

fillin  cont  using  "("  at  12  44 

if  cont  fails  or  cont  eq  Y  then 

*(reset  variables  to  start  condition) 
clear  all  variables 
set  var  pg  to  1 
set  var  review  to  "N" 
set  var  loadmenu  to  "N" 
else 

set  error  messages  off 
set  null  -0- 
set  var  pg  to  0 
endif 
endif 
if  pg  eq  1  then 

goto  begin 
endif 
return 
*(  end  ) 


$ COMMAND 

ADD  OWNR 

* / *********************************************** 

Program:  Add  Owner 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:  July  1987 

Description:  This  program  allows  the  user  to  input 

additional  owner  information. 

Tables  Used:  vessel,  owners,  owvsl 

Temp  Tables :  none 

Reports  Used:  none 

Forms  Used:  ownrmodl,  ownrmod2 

***********************************************************************) 

set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.   Please  stand  by  "  at  10  10 

clear  all  variables 

set  null  ? 

set  var  wslhin  text 

set  var  more  to  Y 

while  more  eq  Y  then  *(main  loop) 

set  var  done  to  Y 

newpage 

write  "Enter  HIN  of  vessel  owned:  "  at  10  10 

fillin  wslhin  using  "  "  at  10  36 

if  wslhin  exists  then 

set  pointer  #1  el  for  vessel  where  vslhin  eq  .wslhin 
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if  el  eq  0  then 
newpage 

write  "Press  [PGDN]  after  entering  initial  information  to  check  + 
if"  at  1  5 

write  "owner  exists  in  database.  Press  [ESC]  to  quit"  at  2  10 
draw  ownrmodl  with  all  at  4 
edit  var  return  esc  pgdn 
if  ttreturn  eq  pgdn  then 

if  vowlname  exists  and  vowfname  exists  then 

set  pointer  #2  e2  for  owners  where  ownlname  =  .vowlname  and  + 
ownfname  =  .vowfname 
while  e2  eg  0  then 

*( owner  last/ first  name  exist  in  database) 
set  var  vowmi  to  ownmi  in  #2 
set  var  vowdob  to  owndob  in  #2 
set  var  vowaddr  to  ownaddr  in-#2 
set  var  vowcity  to  owncity  in  #2 
set  var  vowst  to  ownstate  in  #2 
set  var  vowzip  to  ownzip  in  #2 
set  var  vowtelno  to  owntelno  in  #2 
newpage 

draw  ownrmodl  with  all  at  3 
draw  ownrmod2  with  all  at  8 
write  "Correct  owner?  (N)"  at  21  20 
fillin  owfound  using  "("  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
newpage 

write  "This  owner  already  exists  in  the  database"  at  10  10 
set  var  vownid  to  ownid  in  #2 

set  pointer  #3  e3  for  owvsl  where  vhinown  eq  .wslhin  + 
and  idowner  eq  .vownid 
if  e3  ne  0  then 
load  owvsl 

.wslhin  .vownid 
end 

write  flThe  new  owner-vessel  record  has  been  created"  + 
at  15  10 
endif 
break 
endif 

next  #2  e2 
endwhile 
if  e2  ne  0  then 
clear  vowmi 
clear  vowaddr 
clear  vowcity 
set  var  vowst  to  CA 
clear  vowzip 
clear  vowtelno 

set  var  vowdob  to  01/01/1901 
clear  vostatus 

compute  vmaxown  as  max  ownid  from  owners 
if  vmaxown  fails  then 
set  var  vmaxown  to  0 
endif 

set  var  vownid  to  .vmaxown  +  1 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  ownrmodl  with  all  at  3 
draw  ownrmod2  with  all  at  8 
edit  var  return  esc  pgdn 
if  ttreturn  eq  pgdn  then 
set  var  out  to  N 
set  var  loadok  to  N 
while  loadok  eq  N  then 
newpage 
load  owners 

.vowlname  .vowfname  .vowmi  .vowaddr  .vowcity  .vowst  + 
.vowzip  .vowtelno  .vowdob  .vownid 
end 
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write  "Return  to  correct  errors?  (N)"  at  10  10 
write  "Note:  correct  only  errors  indicated  by  + 
messages"  at  15  5 

fillin  er  using  "("  at  10  36 
if  er  fails  or  er  eq  N  then 
set  var  loadok  to  Y 
set  var  done  to  Y 
else 

*(edit  record  again) 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit" 
at  1  1 

draw  ownrmodl  with  all  at  3 
draw  ownrmod2  with  all  at  8 
edit  var  return  esc  pgdn 
if  #return  eq  esc  then 
set  var  out  to  Y 
break 
endif 
endif 
endwhile 

if  out  eq  N  then 
load  owvsl 

.wslhin  .vownid 
end 
endif 
endif 
endif 
endif 
endif 
else 

newpage 

write  "This  HIN  does  not  exist  in  the  database"  at  10  10 

write  "Do  you  wish  to  reenter  the  HIN?  (Y)"  at  15  10 

fillin  reenter  using  "("  at  15  42 

if  reenter  fails  or  reenter  eq  Y  then 

set  var  done  to  N 
endif 
endif 
endif 

if  done  eq  Y  then 
newpage 

write  "More  owners  to  be  entered?  (N)"  at  12  20 
fillin  mrownrs  using  "("  at  12  47 
if  mrownrs  fails  or  mrownrs  eq  N  then 

set  var  more  to  N 
else 

clear  all  variables 
set  var  more  to  Y 
endif 
endif 
endwhile  *(end  main  loop) 
set  error  messages  on 
set  null  -0- 
return 
*(  end  ) 
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APPENDIX  H 
MODIFY  SOURCE  CODE 

$ COMMAND 

MODMAIN 
*(********************************************************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

MODIFY  MAIN  MENU  and  APPLICATIONS 

Author:  Jon  D.  Allen,  LT,  USCG 
Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

**************************************************** 

set  messages  off 

set  escape  off 

newpage 

clear  all  variables 

set  var  pick3  integer 

newpage 

choose  pick3  from  mod_menu  in  modify. apx 

if  pick3  eq  0  then 

quit  to  restmod.cmd 
endif 
if  pick3  eq  1  then 

run  mod_sar  in  modify. apx 

quit  to  restmod.cmd 
endif 
if  pick3  eq  2  then 

run  mod_br*d  in  modify. apx 

quit  to  restmod.cmd 
endif 
if  pick3  eq  3  then 

run  mod_vsl  in  modify. apx 

quit  to  restmod.cmd 
endif 
if  pick3  eq  4  then 

run  mod_owop  in  modify. apx 

quit  to  restmod.cmd 
endif 
if  pick3  eq  5  then 

run  mod_sut  in  modify. apx 

quit  to  restmod.cmd 
endif 
if  pick3  eq  6  then 

run  am_vint  in  modify. apx 

quit  to  restmod.cmd 
endif 
if  pick3  eq  7  then 

run  am_pint  in  modify. apx 

quit  to  restmod.cmd 
endif 
if  pick3  eq  8  then 

run  mod_vhin  in  modify. apx 

quit  to  restmod.cmd 
endif 
if  pick3  eq  9  then 
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quit  to  restmain.cmd 
endif 

quit  to  restmod.cmd 
return 
$menu 
mod_menu 

column  SARELTIS  -—  MODIFY  MENU 
MODIFY  SAR  INFORMATION 
MODIFY  BOARDING  INFORMATION 
MODIFY  VESSEL  INFORMATION 
MODIFY  OWNER/ OPERATOR  INFORMATION 
MODIFY  SAR  UNIT  INFORMATION 
MODIFY  VESSEL  INTELLIGENCE 
MODIFY  PERSONNEL  INTELLIGENCE 
MODIFY  VESSEL  HIN 
RETURN  TO  MAIN  MENU 
*(  end  ) 


$COMMAND 

MOD  SAR 

* ( ********************************************************************** 

Program:  Modify  Sar 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:  August  1987 

Description:  This  program  allows  the  user  to  modify 

sar  information  in  the  database. 

Tables  Used:  sar,  vessel 

Temp  Tables :  none 

Reports  Used:  none 

Forms  Used:  sarmod 

******************************** 

set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.  Please  stand  by  "  at  10  10 

clear  all  variables 
set  null  ? 
set  var  more  to  Y 
set  var  vfoldno  text 
while  more  eq  Y  then 
set  var  change  to  N 
set  var  reenter  to  N 
newpage 

write  "Enter  folder  number  of  sar  case  requiring  modification:  "  + 
at  10  5 

fillin  vfoldno  using  "  "  at  10  60 
while  vfoldno  exists  then 
newpage 

write  "Searching  SAR  Table.   Please  stand  by  ...."  at  10  10 
set  pointer  #1  el  for  sar  where  folderno  eq  .vfoldno 
if  el  eq  0  then 

*(sar  case  exists  in  database) 
set  var  vucn  to  ucn  in  #1 
set  var  vmucn  to  mucn  in  #1 
set  var  vsardate  to  sardate  in  #1 
set  var  vsarday  to  sarday  in  #1 
set  var  vsartime  to  sartime  in  #1 
set  var  vsunrise  to  ssunrise  in  #1 
set  var  vsunset  to  ssunset  in  #1 
set  var  vsarnod  to  sarnod  in  #1 
set  var  vsarpob  to  sarpob  in  #1 
set  var  vsarnin  to  sarvhin  in  #1 
set  var  vsarlat  to  sarlat  in  #1 
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set  var  vsarlong  to  sarlong  in  #1 

set  var  vdistoff  to  offshore  in  #1 

set  var  vimmed  to  immedsar  in  #1 

set  var  vwinddir  to  winddir  in  #1 

set  var  vwindspd  to  windspd  in  #1 

set  var  wisdist  to  visdist  in  #1 

set  var  vclouds  to  clouds  in  #1 

set  var  vceiling  to  ceiling  in  #1 

set  var  vseas  to  seas  in  #1 

set  var  vswells  to  swells  in  #1 

set  var  oldfold  to  .vfoldno 

set  var  change  to  Y 

set  var  si  to  folderno  in  #1 

set  var  s2  to  ucn  in  #1 

set  var  s3  to  mucn  in  #1 

set  var  s4  to  sardate  in  #1 

set  var  s5  to  sarday  in  #1 

set  var  s6  to  sartime  in  #1 

set  var  s7  to  ssunrise  in  #1 

set  var  s8  to  ssunset  in  #1 

set  var  s9  to  sarnod  in  #1 

set  var  slO  to  sarpob  in  #1 

set  var  sll  to  sarvhin  in  #1 

set  var  sl2  to  sarlat  in  #1 

set  var  sl3  to  sarlong  in  #1 

set  var  sl4  to  offshore  in  #1 

set  var  sl5  to  immedsar  in  #1 

set  var  sl6  to  winddir  in  #1 

set  var  sl7  to  windspd  in  #1 

set  var  sl8  to  visdist  in  #1 

set  var  sl9  to  clouds  in  #1 

set  var  s20  to  ceiling  in  #1 

set  var  s21  to  seas  in  #1 

set  var  s22  to  swells  in  #1 
else 

newpage 

write  "This  folder  number  does  not  exist  in  the  database"  at  10  10 

write  "Do  you  wish  to  reenter  the  folder  number?  (Y)"  at  12  10 

fillin  correct  using  "("  at  12  52 

if  correct  fails  or  correct  eq  Y  then 
set  var  reenter  to  Y 

endif 
endif 
break 
endwhile 
while  change  eg  Y  then 

set  pointer  #2  e2  for  vessel  where  vslhin  eq  .vsarhin 

set  var  wslname  to  vslname  in  #2 

newpage 

write  "press  [PGDN]  to  load  changes  or  [ESC]  to  quit"  at  1  1 

draw  sarmod  with  all  at  3 

edit  var  vfoldno  vsardate  vucn  vmucn  vsarday  vsartime  vsarpob  + 

vsarnod  vimmed  vsarlat  vsarlong  vdistoff  wisdist  vsunrise  vsunset  + 

vceiling  vclouds  vwinddir  vwindspd  vseas  vswells  return  esc  pgdn 

if  ttreturn  eq  pgdn  then 

newpage 

write  "Changing  values  in  sar" 

if  oldfold  ne  .vfoldno  then 

set  pointer  #2  e2  for  sarunits  where  foldno  eq  .oldfold 
while  e2  eq  0  then 

change  foldno  to  .vfoldno  in  #2 
next  #2  e2 
endwhile 

endif 

delete  rows  from  #1 

load  sar 

.vfoldno  .vucn  .vmucn  .vsardate  .vsarday  .vsartime  .vsunrise  + 
.vsunset  .vsarnod  .vsarpob  .vsarhin  .vsarlat  .vsarlong  + 
.vdistoff  .vimmed  .vwinddir  .vwindspd  .wisdist  .vclouds  + 
.vceiling  .vseas  .vswells 
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end 

set  pointer  #2  e2  for  sar  where  folderno  eq  .si  or  folderno  eq  + 
.vfoldno 
if  e2  ne  0  then 
load  sar 

.si  .s2  .s3  .s4  .s5  .s6  .s7  .s8  .s9  .slO  .sll  .sl2  .sl3  .sl4  + 
.sl5  .sl6  .sl7  .sl8  .sl9  .s20  .s21  .s22 
end 

set  pointer  #3  e3  for  sarunits  where  foldno  eq  .vfoldno 
while  e3  eq  0 

change  foldno  to  .si  in  #3 
next  #3  e3 
endwhile 
endif 

write  "Return  to  correct  data  entered?  (N)"  at  15  10 
write  "Note:   correct  only  errors  indicated  by  messages"  at  20  5 
fillin  er  using  "("  at  15  42 
if  er  fails  or  er  eq  N  then 

set  var  change  to  N 
endif 
else 

set  var  change  to  N 
endif 
endwhile 

if  reenter  eq  N  then 
newpage 

write  "More  sar  cases  to  be  changed?  (N)"  at  12  20 
fillin  mrsar  using  "("  at  12  50 
if  mrsar  fails  or  mrsar  eq  N  then 

set  var  more  to  N 
endif 
endif 
endwhile  *(end  of  main  loop) 
set  error  messages  off 
set  null  -0- 
return 
*(  end  ) 


$ COMMAND 

MOD  BRD 
*(********************************************************************** 

Program:  Modify  Boarding 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:  August  1987 

Description:  This  program  allows  the  user  to  modify 

boarding  information  in  the  database. 

Tables  Used:  boarding,  vessel 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  bomodl ,  bomod2,  bomod3 

****************************** 

set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.   Please  stand  by  "  at  10  10 

clear  all  variables 
set  null  ? 
set  var  pg  to  1 
set  var  review  to  N 

^(controls  relation  search-  if  reviewing,  don't  search) 
while  pg  gt  0  then  *(main  loop) 
if  review  eq  N  then 


newpage 
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set  var  fix  to  N 
set  var  chk-mr  to  N 
set  var  vbono  text 

write  "Enter  report  number  of  boarding  requiring  modification:  "  + 
at  10  5 

fillin  vbono  using  "  "  at  10  60 
while  vbono  exists  then 
newpage 

write  "Searching  Boarding  Table.  Please  stand  by .."  at  10  10 

set  pointer  #1  el  for  boarding  where  bono  eq  .vbono 
if  el  eq  0  then 

*(record  exists  in  database) 

set  var  vbodate  to  bodate  in  #1 

set  var  vbotime  to  botime  in  #1 

set  var  wslpob  to  vslpob  in  #1 

set  var  vadult  to  adultpfd  in  #1 

set  var  vchild  to  childpfd  in  #1 

set  var  vostatus  to  owstatus  in  #1 

set  var  vobsbody  to  obsbody  in  #1 

set  var  vobcount  to  obscount  in  #1 

set  var  vobscity  to  obscity  in  #1 

set  var  vobstate  to  obsstate  in  #1 

set  var  vobslat  to  obslat  in  #1 

set  var  vobslong  to  obslong  in  #1 

set  var  wiol54  to  viol54  in  #1 

set  var  wiol55  to  viol55  in  #1 

set  var  wiol56  to  viol56  in  #1 

set  var  vviol57  to  viol57  in  #1 

set  var  wiol58  to  viol58  in  #1 

set  var  wiol59  to  viol59  in  #1 

set  var  wiol60  to  viol60  in  #1 

set  var  wiol61  to  viol61  in  #1 

set  var  wiol62  to  viol62  in  #1 

set  var  wiol63  to  viol63  in  #1 

set  var  wiol64  to  viol64  in  #1 

set  var  wiol65  to  viol65  in  #1 

set  var  wiol66  to  viol66  in  #1 

set  var  wiol67  to  viol67  in  #1 

set  var  wiol68  to  viol68  in  #1 

set  var  vuns69  to  uns69  in  #1 

set  var  vuns70  to  uns70  in  #1 

set  var  vuns71  to  uns71  in  #1 

set  var  vuns72  to  uns72  in  #1 

set  var  vuns73  to  uns73  in  #1 

set  var  vuns74  to  uns74  in  #1 

set  var  vuns75  to  uns75  in  #1 

set  var  vuns76  to  uns76  in  #1 

set  var  vuns77  to  uns77  in  #1 

set  var  vuns78  to  uns78  in  #1 

set  var  vuns79  to  uns79  in  #1 

set  var  vboreml  to  boreml  in  #1 

set  var  vborem2  to  borem2  in  #1 

set  var  vborem3  to  borem3  in  #1 

set  var  vboname  to  boname  in  #1 

set  var  vborate  to  borate  in  #1 

set  var  vbounit  to  bounit  in  #1 

set  var  vbodist  to  bodist  in  #1 

set  var  vboopfac  to  boopfac  in  #1 

set  var  vboday  to  boday  in  #1 

set  var  vbosrise  to  bsunrise  in  #1 

set  var  vbosset  to  bsunset  in  #1 

set  var  wslhin  to  bovhin  in  #1 

set  var  weapons  to  weapons  in  #1 

set  var  bl  to  bodate  in  #1 

set  var  b2  to  botime  in  #1 

set  var  b3  to  bono  in  #1 

set  var  b4  to  vslpob  in  #1 

set  var  b5  to  adultpfd  in  #1 

set  var  b6  to  childpfd  in  #1 

set  var  b7  to  owstatus  in  #1 
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set 

set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 


var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 


b8  to  obsbody  in  #1 
b9  to  obscount  in  #1 
blO  to  obscity  in  #1 
obsstate  in  #1 
obslat  in  #1 
obslong  in  #1 
vio!54  in  #1 


bll 
bl2 
bl3 
bl4 
bl5 
bl6 
bl7 
bl8 
bl9 
b20 
b21 
b22 
b23 
b24 
b25 
b26 
b27 
b28 
b29 
b30 
b31 
b32 
b33 
b34 
b35 
b36 
b37 
b38 
b39 
b40 
b41 
b42 
b43 
b44 
b45 
b46 
b47 
b48 
b49 
b50 
b51 
b52 
pointer 
*(get  vessel  name) 
se£  var  wslname  to  vslname  in  #2 
set  var  review  to  Y 
break 
else 

newpage 

write  "This  boarding  report  number  does  not  exist  in  the  + 
database"  at  10  10 

write  "Do  you  wish  to  reenter  the 
fillin  correct  using  "("  at  12  52 
if  correct  exists  and  correct  eq  N 
set  var  chk-mr  to  Y 
set  var  fix  to  Y 
break 
else 

set  var  fix  to  Y 
break 
endif 
endif 
endwhile 
endif 

if  fix  eq  N  then 
if  pg  eq  1  then 
newpage 


to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 


viol55 

viol56 

viol57 

viol58 

viol59 

viol60 

viol61 

viol62 

viol63 

viol64 

viol65 

viol66 

viol67 

viol68 

uns69 

uns70 

uns71 

uns72 

uns73 

uns74 

uns7  5 

uns76 

uns77 

uns78 

uns79 

boreml 

borem2 

borem3 

boname 

borate 

bounit 

bodist 

boopfac 


in 

in 

in 

in 

in 

in 

in 

in 

in 

in 

in 

in 

in 

in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 

in 

in 

in 

in 

in 

in 

in 
in 


#1 
#1 
#1 
#1 
#1 
#1 
#1 
#1 
#1 
#1 
#1 

#1 

#1 

#1 
#1 
#1 
#1 
#1 
#1 
#1 
#1 
#1 
#1 
#1 
#1 

#1 

#1 

#1 

#1 

#1 

#1 

#1 
#1 


to  boday  in  #1 
to  bsunrise  in  #1 

bsunset  in  #1 

bovhin  in  #1 

weapons  in  #1 

e2  for  vessel  where  vslhin  eq  .wslhin 


to 
to 
to 
#2 


report  number? 
then 


(Y)"  at  12  10 
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write  "Press  [PGDN]  to  move  down  a  page  or  [ESC]  to  quit"  at  1  1 
draw  bomodl  with  all  at  3 

edit  var  vbono  vbodate  vbotime  vboday  wslpob  vadult  vchild  + 
vostatus  vobsbody  vobcount  vobscity  vobstate  vobslat  vobslong  + 
return  esc  pgdn 
endif 

if  pg  eq  2  then 
newpage 

write  "Press  [ESC]  to  quit,  [PGUP]  to  move  up  or  [PGDN]  to  move  + 
down  a  page"  at  1  1 

draw  bomod2  with  all  at  3 
edit  var  return  esc  pgup  pgdn 
endif 

if  pg  eq  3  then 
newpage 

write  "Press  [PGUP]  to  move  up  a  page  or  [ESC]  to  quit"  at  1  1 
draw  bomod3  with  all  at  3 
edit  var  return  esc  pgup 
endif 

if  #return  eq  pgup  then 
if  pg  gt  1  then 

set  var  pg  to-  .pg  -  1 
else 

set  var  pg  to  1 
endif 
endif 

if  ttreturn  eq  pgdn  then 
if  pg  It  3  then 

set  var  pg  to  .pg  +  1 
else 

set  var  pg  to  3 
endif 
endif 

if  ttreturn  eq  esc  then 
set  var  choice  to  0 

while  choice  It  1  or  choice  gt  3  then 
newpage 
write  "Boarding  Change  Options"  at  2  20 

write  " -"  at  3  20 

write  "1.  Change  values  in  the  database"  at  5  20 
write  "2.  Go  back  and  verify  data  "  at  6  20 
write  "3.  Quit  "  at  7  20 
write  "Your  choice:  "  at  9  25 
fillin  choice  using  "  "  at  9  37 
if  choice  eq  1  then 

set  error  messages  off 

newpage 

write  "changing  values  in  boarding" 

delete  rows  from  #1 

load  boarding 

.vbodate  .vbotime  .vbono  .wslpob  .vadult  .vchild  + 
.vostatus  .vobsbody  .vobcount  .vobscity  .vobstate  + 
.vobslat  .vobslong  .wiol54  .wiol55  .wiol56  .wiol57  + 
.wiol58  .wiol59  .wiol60  .wiol61  .wiol62  .wiol63  + 
.wiol64  .wiol65  .wiol66  ,wiol67  .wiol68  .vuns69  + 
•vuns70  .vuns71  .vuns72  .vuns73  .vuns74  .vuns75  .vuns76 
.vuns77  .vuns78  .vuns79  .vboreml  .vborem2  .vborem3  + 
.vboname  .vborate  .vbounit  .vbodist  .vboopfac  .vboday  + 
.vbosrise  .vbosset  .wslhin  .vweapons 
end 

set  pointer  #3  e3  for  boarding  where  bono  eq  .b3 
if  e3  ne  0  then 
load  boarding 

.bl  .b2  .b3  .b4  .b5  .b6  .b7  .b8  .b9  .blO  .bll  .bl2  .bl3  + 
.bl4  .bl5  .bl6  .bl7  .bl8  .bl9  .b20  .b21  .b22  .b23  .b24  + 
•b25  .b26  .b27  .b28  .b29  .b30  .b31  .b32  .b33  .b34  .b35  + 
.b36  .b37  .b38  .b39  .b40  .b41  .b42  .b43  .b44  .b45  .b46  + 
.b47  .b48  .b49  .b50  .b51  .b52 
end 
endif 
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set  error  messages  on 

newpage 

write  "Return  to  correct  data  entered?  (N)"  at  15  10 

fillin  er  using  "("  at  15  42 

if  er  exists  and  er  eq  Y  then 

set  var  pg  to  1 
else 

set  var  chk-mr  to  Y 
endif 
endif 
if  choice  eq  2  then 

set  var  pg  to  1 
endif 

if  choice  eq  3  then 
newpage 

write  "More  boardings  to  be  changed?  (N)"  at  12  20 
fillin  more  using  "("  at  12  50 
if  more  fails  or  more  eq  N  then 

set  var  pg  to  0 
else 

set  var  pg  to  1 
set  var  review  to  N 
endif 
endif 
endwhile 
endif 
endif 

if  chk-mr  eq  Y  then 
newpage 

write  "More  boardings  to  be  changed?  (N)"  at  12  20 
fillin  more  using  "("  at  12  50 
if  more  fails  or  more  eq  N  then 

set  var  pg  to  0 
else 

clear  all  variables 
set  var  pg  to  1 
set  var  review  to  N 
endif 
endif 
endwhile  *(end  of  main  loop) 
set  error  messages  off 
set  null  -0- 
return 
*(  end  ) 


$ COMMAND 

MOD  VSL 

* / ********************************************************************** 

Program:  Modify  Vessel 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:  August  1987 

Description:  This  program  allows  the  user  to  modify 

vessel  information  in  the  database. 

Tables  Used:  vessel 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  vslmodl,  vslmod2 

******************************************************* 

set  error  messages  on 
set  messages  oft 
set  escape  off 
newpage 

write  "Program  loading  in  progress.   Please  stand  by  "  at  10  10 

clear  all  variables 
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set  null  ? 
set  var  pg  to  1 
set  var  more  to  Y 

while  more  eq  Y  then  *(main  loop) 
set  var  chk_hin  to  Y 
set  var  chk^name  to  N 
while  chkjiln  eq  Y  then 
newpage 

set  var  wslhin  text 

write  "Enter  HIN  of  vessel  requiring  modification:  "  at  10  10 
write  "(enter  'xxx'  to  go  directly  to  vessel  name  search)"  at  12  5 
fillin  wslhin  using  "  "  at  10  53 
while  wslhin  exists  then 
if  wslhin  eq  xxx  then 

set  var  chk_hin  to  N 

set  var  chk_name  to  Y 

break 
endif 
newoage 

write  "Searching  Vessel  Table.  Please  stand  by  "  at  10  10 

set  pointer  #1  el  for  vessel  where  vslhin  =  .wslhin 

newpage 

if  el  eq  0  then 

*(vessel  exists  in  database) 

set  var  wslno  to  vslno  in  #1 

set  var  wslname  to  vslname  in  #1 

set  var  wslmake  to  vslmake  in  #1 

set  var  wslmod  to  vslmodel  in  #1 

set  var  wslyear  to  vslyear  in  #1 

set  var  wslton  to  vsltons  in  #1 

set  var  wslft  to  vsllenft  in  #1 

set  var  wslin  to  vsllenin  in  #1 

set  var  wslhp  to  vslhp  in  #1 

set  var  wsluse  to  vsluse  in  #1 

set  var  wsltype  to  vsltype  in  #1 

set  var  wslprop  to  vslprop  in  #1 

set  var  wslnull  to  vslhull  in  #1 

set  var  wsleng  to  vsleng  in  #1 

set  var  wslfuel  to  vslfuel  in  #1 

set  var  vconstr  to  vslconst  in  #1 

set  var  vdecal  to  cmedecal  in  #1 

set  var  vcmeyear  to  cmeyear  in  #1 

set  var  voffno  to  vsloffno  in  #1 

set  var  vhome  to  homeport  in  #1 

set  var  vcall  to  vslcall  in  #1 

set  var  walue  to  vslvalue  in  #1 

set  var  vsuper  to  vslsuper  in  #1 

set  var  vmasts  to  vslmasts  in  #1 

set  var  vsailno  to  sailno  in  #1 

set  var  vhlcolor  to  hlcolor  in  #1 

set  var  vtrcolor  to  trcolor  in  #1 

set  var  vslcolor  to  slcolor  in  #1 

set  var  vcbcolor  to  cbcolor  in  #1 

set  var  vdkcolor  to  dkcolor  in  #1 

set  var  vmarks  to  vslmarks  in  #1 

set  var  vl  to  vslno  in  #1 

set  var  v2  to  vslname  in  #1 

set  var  v3  to  vslhin  in  #1 

set  var  v4  to  vslmake  in  #1 

set  var  v5  to  vslmodel  in  #1 

set  var  v6  to  vslyear  in  #1 

set  var  v7  to  vsltons  in  #1 

set  var  v8  to  vsllenft  in  #1 

set  var  v9  to  vsllenin  in  #1 

set  var  vlO  to  vslhp  in  #1 

set  var  vll  to  vsluse  in  #1 

set  var  vl2  to  vsltype  in  #1 

set  var  vl3  to  vslprop  in  #1 

set  var  vl4  to  vslhull  in  #1 

set  var  vl5  to  vsleng  in  #1 
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set  var  vl6  to  vslfuel  in  #1 

set  var  vl7  to  vslconst  in  #1 

set  var  vl8  to  cmedecal  in  #1 

set  var  vl9  to  cmeyear  in  #1 

set  var  v20  to  vsloffno  in  #1 

set  var  v21  to  homeport  in  #1 

set  var  v22  to  vslcall  in  #1 

set  var  v23  to  vslvalue  in  #1 

set  var  v24  to  vslsuper  in  #1 

set  var  v25  to  vslmasts  in  #1 

set  var  v26  to  sailno  in  #1 

set  var  v27  to  hlcolor  in  #1 

set  var  v28  to  trcolor  in  #1 

set  var  v29  to  slcolor  in  #1 

set  var  v30  to  cbcolor  in  #1 

set  var  v31  to  dkcolor  in  #1 

set  var  v32  to  vslmarks  in  #1 

set  var  chk_hin  to  N 

break 
else 

newpage 

write  "This  HIN  does  not  exist  in  the  database"  at  10  20 

write  "Do  you  wish  to  reenter  the  HIN?  (Y)"  at  12  20 

fillin  correct  using  "("  at  12  52 

if  correct  exists  and  correct  eq  N  then 
set  var  chk_hin  to  N 
set  var  chk_name  to  Y 

endif 

break 
endif 
endwhile 
endwhile 

while  chk_name  eq  Y  then 
newpage 

write  "Enter  name  of  vessel  requiring  modification:  "  at  10  10 
fillin  wslname  using  "  "  at  10  54 
while  wslname  exists  then 
newpage 

write  "Searching  Vessel  Table.  Please  stand  by  "  + 

at  10  10 

set  pointer  #1  el  for  vessel  where  vslname  =  .wslname 

newpage 

while  el  eq  0  then 

^(vessel  exists  in  database) 

set  var  wslno  to  vslno  in  #1 

set  var  wslname  to  vslname  in  #1 

set  var  wslhin  to  vslhin  in  #1 

set  var  wslmake  to  vslmake  in  #1 

set  var  wslmod  to  vslmodel  in  #1 

set  var  wslyear  to  vslyear  in  #1 

set  var  wslton  to  vsltons  in  #1 

set  var  wslft  to  vsllenft  in  #1 

set  var  wslin  to  vsllenin  in  #1 

set  var  wslhp  to  vslhp  in  #1 

set  var  wsluse  to  vsluse  in  #1 

set  var  wsltype  to  vsltype  in  #1 

set  var  wslprop  to  vslprop  in  #1 

set  var  wslhull  to  vslhull  in  #1 

set  var  wsleng  to  vsleng  in  SI 

set  var  wslfuel  to  vslfuel  in  #1 

set  var  vconstr  to  vslconst  in  #1 

set  var  vdecal  to  cmedecal  in  #1 

set  var  vcmeyear  to  cmeyear  in  #1 

set  var  voffno  to  vsloffno  in  #1 

set  var  vhome  to  homeport  in  #1 

set  var  vcall  to  vslcall  in  #1 

set  var  walue  to  vslvalue  in  #1 

set  var  vsuper  to  vslsuper  in  #1 

set  var  vmasts  to  vslmasts  in  #1 

set  var  vsailno  to  sailno  in  #1 
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set  var  vhlcolor  to  hlcolor  in  #1 
set  var  vtrcolor  to  trcolor  in  #1 
set  var  vslcolor  to  slcolor  in  #1 
set  var  vcbcolor  to  cbcolor  in  #1 
set  var  vdkcolor  to  dkcolor  in  #1 
set  var  vmarks  to  vslmarks  in  #1 
newpage 

draw  vslmodl  with  all  at  1 
write  "Correct  vessel?  (N)"  at  22  20 
fillin  vslfound  using  "("  at  22  36 
if  vslfound  exists  and  vslfound  eq  Y  then 
set  var  chk_name  to  N 
set  var  vl  to  vslno  in  #1 
set  var  v2  to  vslname  in  #1 
set  var  v3  to  vslhin  in  #1 
set  var  v4  to  vslmake  in  #1 
set  var  v5  to  vslmodel  in  #1 
set  var  v6  to  vslyear  in  #1 
set  var  v7  to  vsltons  in  #1 
set  var  v8  to  vsllenft  in  #1 
set  var  v9  to  vsllenin  in  #1 
set  var  vlO  to  vslhp  in  #1 
set  var  vll  to  vsluse  in  #1 
set  var  vl2  to  vsltype  in  #1 
set  var  vl3  to  vslprop  in  #1 
set  var  vl4  to  vslhull  in  #1 
set  var  vl5  to  vsleng  in  #1 
set  var  vl6  to  vslfuel  in  #1 
set  var  vl7  to  vslconst  in  #1 
set  var  vl8  to  craedecal  in  #1 
set  var  vl9  to  cmeyear  in  #1 
set  var  v20  to  vsloffno  in  #1 
set  var  v21  to  homeport  in  #1 
set  var  v22  to  vslcall  in  #1 
set  var  v23  to  vslvalue  in  #1 
set  var  v24  to  vslsuper  in  #1 
set  var  v25  to  vslmasts  in  #1 
set  var  v26  to  sailno  in  #1 
set  var  v27  to  hlcolor  in  #1 
set  var  v28  to  trcolor  in  #1 
set  var  v29  to  slcolor  in  #1 
set  var  v30  to  cbcolor  in  #1 
set  var  v31  to  dkcolor  in  #1 
set  var  v32  to  vslmarks  in  #1 
break 
endif 

next  #1  el 
endwhile 
if  el  ne  0  then 
newpage 

write  "This  vessel  does  not  exist  in  the 
write  "Do  you  wish  to  reenter  the  vessel 
fillin  correct  using  "("  at  12  60 
if  correct  exists  and  correct  eq  N  then 

set  var  chk_name  to  N 
endif 
endif 
break 
endwhile 
endwhile 
if  el  eq  0  then 
set  var  error  to  Y 
while  error  eq  Y  then 
set  var  error  to  N 
newpage 

write  "Press  [ESC]  to  quit  or  [PGDN]  to  move  down  a  page"  at  1  1 
draw  vslmodl  with  all  at  3 

edit  var  wslname  wslno  voffno  wslmake  wslmod  wslyear  wslft  + 
wslin  wslhp  wslton  wsluse  wsltype  wslprop  wslhull  wsleng  + 
wslfuel  vconstr  return  esc  pgdn 


database" 
name?  (Y) 


at  10  20 
"  at  12  20 
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if  #return  eq  pgdn  then 
newpage 

write  "Press  [ESC]  to  quit  or  [PGDN]  to  load  changes"  at  1  1 
draw  vslmod2  with  all  at  3 

edit  var  vdecal  vcmeyear  vhome  vcall  walue  vsuper  vmasts  + 
vslcolor  vsailno  vhlcolor  vtrcolor  vcbcolor  vdkcolor  vmarks  + 
return  esc  pgdn 
if  #return  eq  pgdn  then 

*(vessel  exists  in  database) 

set  error  messages  off 

newpage 

write  "changing  values  in  vessel" 

delete  rows  from  #1 

load  vessel 

.wslno  .wslname  .wslhin  .wslmake  .wslmod  .wslyear  + 
.wslton  .wslft  .wslin  .wslhp  .wsluse  .wsltype  + 
.wslprop  .wslhull  .wsleng  .wslfuel  .vconstr  .vdecal  + 
.vcmeyear  .voffno  .vhome  .vcall  .walue  .vsuper  .vmasts  + 
•vsailno  .vhlcolor  .vtrcolor  .vslcolor  .vcbcolor  .vdkcolor  + 
.vmarks 
end 

set  pointer  #2  e2  for  vessel  where  vslhin  eq  .v3 
if  e2  ne  0  then 
load  vessel 

.vl  .v2  .v3  .v4  .v5  .v6  .v7  .v8  .v9  .vlO  .vll  .vl2  .vl3  + 
.vl4  .vl5  .vl6  .vl7  .vl8  .vl9  .v20  .v21  .v22  .v23  .v24  + 
.v25  .v26  .v27  .v28  .v29  .v30  .v31  .v32 
end 
endif 

set  error  messages  on 

write  "Return  to  correct  data  entered?  (N)"  at  15  10 
write  "Note:   correct  only  errors  identified  by  messages"  + 
at  20  5 

fillin  er  using  "("  at  15  42 
if  er  exists  and  er  eq  Y  then 

set  var  error  to  Y 
endif 
endif 
endif 
endwhile 
endif 
newpage 

write  "More  vessels  to  be  changed?  (N)"  at  12  20 
fillin  mrvsls  using  "("  at  12  48 
if  mrvsls  fails  or  mrvsls  eq  N  then 

set  var  more  to  N 
endif 
endwhile  *(end  of  main  loop) 
set  error  messages  off 
set  null  -0- 
return 
*(  end  ) 


$ COMMAND 

MOD  OWOP 

* ( *****************************^ 

Program:  Modify  Owner  and  Operator 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:      August  1987 

Description:       This  program  allows  the  user  to  modify 

owner  and  operator  information  in  the 

database. 
Tables  Used:       owners,  operator,  opown 
Temp  Tables :       none 
Reports  Used:      none 
Forms  Used:       ownrmodl ,  ownrmod2,  opermodl,  opermod2 
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******************************************************************** 

set  error  messages  on 

set  messages  off  * 

set  escape  off 

newpage 

write  "Program  loading  in  progress.  Please  stand  by  "  at  10  10 

clear  all  variables 
set  null  ? 

set  var  owchange  to  N 
set  var  opchange  to  N 
set  var  choice  to  0 

while  choice  gt  3  or  choice  It  1  then  *(main  loop) 
newpage 


write 
write 
write 
write 
write 
write 


'Owner  /  Operator  Change  Options"  at  10  20 
' "  at  11  20 

1.  change  owner  values"  at  13  22 

2.  change  operator  values"  at  14  22 
."   at  15  22 


'3.   quit1 

'Your  choice:  "  at  17  25 
fillin  choice  using  "  "  at  17  37 
if  choice  eq  1  then 
set  var  chk_ownr  to  Y 
while  chk_ownr  eq  Y  then 
*( change  owner  information) 
newpage 

write  "Press  [PGDN]  after  entering  initial  information  to  check  + 
if"  at  1  5 

write  "owner  exists  in  database.  Press  [ESC]  to  quit"  at  2  10 

draw  ownrmodl  at  4 

enter  var  return  esc  pgdn 

if  #return  ne  esc  then 

while  vowlname  exists  and  vowfname  exists  then 

set  pointer  #2  e2  for  owners  where  ownlname  =  .vowlname  and  + 

ownfname  =  .vowfname 

newpage 

while  e2  eg  0  then 

* (owner  last/ first  name  exist  in  database) 
set  var  vowmi  to  ownmi  in  #2 
set  var  vowdob  to  owndob  in  #2 
set  var  vowaddr  to  ownaddr  in  #2 
set  var  vowcity  to  owncity  in  #2 
set  var  vowst  to  ownstate  in  #2 
set  var  vowzip  to  ownzip  in  #2 
set  var  vowtelno  to  owntelno  in  #2 
newpage 

draw  ownrmodl  with  all  at  3 
draw  ownrmod2  with  all  at  8 
write  "Correct  owner?  (N)"  at  21  20 
fillin  owfound  using  "("  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
set  var  owl  to  .vowlname 
set  var  ow2  to  .vowfname 
set  var  ow3  to  ownmi  in  #2 
set  var  ow4  to  ownaddr  in  #2 
set  var  ow5  to  owncity  in  #2 
set  var  ow6  to  ownstate  in  #2 
set  var  ow7  to  ownzip  in  #2 
set  var  ow8  to  owntelno  in  #2 
set  var  ow9  to  owndob  in  #2 
set  var  owlO  to  ownid  in  #2 
set  var  vownid  to  ownid  in  #2 
newpage 

write  "Do  you  wish  to  change  name?  (N)"  at  10  10 
fillin  nmchange  using  "("  at  10  38 
if  nmchange  exists  and  nmchange  eq  Y  then 
newpage 

write  "Press  [PGDN]  to  make  change  or  [ESC]  to  quit"  + 
at  1  1 
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messages"  at  15  5 


draw  ownrmodl  with  all  at  3 
edit  var  return  esc  pgdn 
if  #return  eg  pgdn  then 

change  ownrname  to  .vowfname  in  #2 
•  change  ownlname  to  .vowlname  in  #2 
endif 

set  var  chk_ownr  to  N 
break 
endif 
newpage 

write  "Press  [PGDN]  to  make  changes  or  [ESC]  to  quit"  + 
at  1  1 

draw  ownrmodl  with  all  at  3 
draw  ownrmod2  with  all  at  8 
edit  var  return  esc  pgdn 
if  #return  eq  pgdn  then 
set  var  er  to  Y 
while  er  eq  Y  then 

set  error  messages  off 

newpage 

write  "changing  values  in  owner" 

delete  rows  from  #2 

load  owners 

.vowlname  .vowfname  .vowmi  .vowaddr  .vowcity  + 
.vowst  .vowzip  .vowtelno  .vowdob  .vownid 
end 

set  pointer  #3  e3  for  owners  whe  ownid  eq  .owlO 
if  e3  ne  0  then 
load  owners 

.owl  .ow2  .ow3  .ow4  .ow5  .ow6  .ow7  .ow8  .ow9  .owlO 
end 
endif 

set  error  messages  on 

write  "Return  to  make  corrections?  (N)"  at  10  10 
write  "Note:  correct  only  errors  identified  by  + 


operator" 


fillin  error  using  "("  at  10  38 

if  error  exists  and  error  eq  Y  then 

newpage 

write  "Press  [PGDN]  to  make  changes" 

draw  ownrmodl  with  all  at  3 

draw  ownrmod2  with  all  at  8 

edit  var  return  esc  pgdn 
else 

set  var  er  to  N 
endif 
endwhile 

set  pointer  #1  el  for  opown  where  ownno  eq  .vownid 
newpage 
if  el  eq  0  then 

set  var  vopid  to  opno  in  #1 

set  error  messages  off 

set  pointer  #1  el  for  operator  where  opid  eq  .vopid 

set  var  vopcrse  to  opcourse  in  #1 

delete  rows  from  #1 

load  operator 

.vowlname  .vowfname  .vowmi  .vowaddr  .vowcity  + 

.vowst  .vowzip  .vowtelno  .vowdob  .vopcrse  .vopid 
end 

set  pointer  #1  el  for  operator  where  opid  eq  .vopid 
if  el  ne  0  then 

load  operator 

.owl  .ow2  .ow3  .ow4  .ow5  .ow6  .ow7  .ow8  .ow9  + 
.vopcrse  .vopid 

end 
endif 

set  error  messages  on 
write  "Values  for  this  person  also  changed  in  + 

set  var  chk_ownr  to  N 
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set  var  owchange  to  N 
break 
else 

set  var  owchange  to  Y 
if  opchange  eq  Y  then 

if  vowlname  eq  .voplname  then 
newpage 

draw  owopform  with  all  at  1 

write  "Is  this  the  same  person?  (N)"  at  20  20 
fillin  same  using  "("  at  20  45 
if  same  exists  and  same  eq  Y  then 
load  opown 

.vownid  .vopid 
end 
endif 
endif 
endif 

set  var  chk_ownr  to  N 
break 
endif 
else 

break 
endif 
endif 

next  #2  e2 
endwhile 
if  e2  ne  0  then 
newpage 

write  "This  owner  does  not  exist  in  the  database"  at  5  5 
write  "Do  you  wish  to  reenter  name?  (Y)"  at  10  5 
fillin  go  using  "("  at  10  34 
if  go  exists  and  go  eq  N  then 

set  var  chk_ownr  to  N 
endif 
endif 
break 
endwhile 
else 

set  var  chk_ownr  to  N 
endif 
endwhile 

set  var  choice  to  0 
endif 

if  choice  eq  2  then 
set  var  chk_oper  to  Y 
while  chk_oper  eq  Y  then 

*( change  operator  information) 
newpage 

write  "Press  [PGDN]  after  entering  initial  information  to  check  + 
if"  at  1  5 

write  "operator  exists  in  database.  Press  [ESC]  to  quit"  at  2  10 

draw  opermodl  at  4 

enter  var  return  esc  pgdn 

if  ttreturn  ne  esc  then 

while  voplname  exists  and  vopfname  exists  then 

set  pointer  #2  e2  for  operator  where  oplname  =  .voplname  and  + 

op f name  =  .vopfname 

newpage 

while  e2  eq  0  then 

^(operator  last/first  name  exist  in  database) 

set  var  vopmi  to  opmi  in  #2 

set  var  vopdob  to  opdob  in  #2 

set  var  vopaddr  to  opaddr  in  #2 

set  var  vopcity  to  opcity  in  #2 

set  var  vopst  to  opstate  in  #2 

set  var  vopzip  to  opzip  in  #2 

set  var  voptelno  to  optelno  in  #2 

set  var  vopcrse  to  opcourse  in  #2 

newpage 

draw  opermodl  with  all  at  3 
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draw  opermod2  with  all  at  8 
write  ^Correct  operator?  (N)"  at  22  20 
fillin  opfound  using  "("  at  22  38 
if  opfound  exists  and  opfound  eq  Y  then 
set  var  opl  to  .voplname 
set  var  op2  to  .vopfname 
set  var  op3  to  opmi  in  #2 
set  var  op4  to  opaddr  in  #2 
set  var  op5  to  opcity  in  #2 
set  var  op6  to  opstate  in  #2 
set  var  op7  to  opzip  in  #2 
set  var  op8  to  optelno  in  #2 
set  var  op9  to  opdob  in  #2 
set  var  oplO  to  opcourse  in  #2 
set  var  opll  to  opid  in  #2 
set  var  vopid  to  opid  in  #2 
newpage 

write  "Do  you  wish  to  change  name?  (N)M  at  10  10 
fillin  nmchange  using  "("  at  10  38 
if  nmchange  exists  and  nmchange  eq  Y  then 
newpage 

write  "Press  [PGDN]  to  make  change  or  [ESC]  to  quit"  + 
at  1  1 

draw  opermodl  with  all  at  3 
edit  var  return  esc  pgdn 
if  #return  eq  pgdn  then 

change  op f name  to  .vopfname  in  #2 
change  oplname  to  .voplname  in  #2 
endif 

set  var  chk_oper  to  N 
break 
endif 
newpage 

write  "Press  [PGDN]  to  make  changes  or  [ESC]  to  quit"  + 
at  1  1 

draw  opermodl  with  all  at  3 
draw  opermod2  with  all  at  8 
edit  var  return  esc  pgdn 
if  #return  eq  pgdn  then 
set  var  er  to  Y 
while  er  eq  Y  then 

set  error  messages  off 

newpage 

write  "changing  values  in  operator" 

delete  rows  from  #2 

load  operator 

.voplname  .vopfname  .vopmi  .vopaddr  .vopcity  + 
.vopst  .vopzip  .voptelno  .vopdob  .vopcrse  .vopid 
end 

set  pointer  #3  e3  for  operator  where  opid  eq  .opll 
if  e3  ne  0  then 
load  operator 

.opl  .op2  .op2  .op3  ,op4  .op5  .op6  .op7  .op8  .op9  + 
.oplO  .opll 
end 
endif 

set  error  messages  on 

write  "Return  to  make  corrections?  (N)"  at  10  10 
write  "Note:   correct  only  errors  identified  by  + 
messages"  at  15  5' 

fillin  error  using  "("  at  10  38 
if  error  exists  and  error  eq  Y  then 
newpage 

write  "Press  [PGDN]  to  make  changes" 
draw  opermodl  with  all  at  3 
draw  opermod2  with  all  at  8 
edit  var  return  esc  pgdn 
else 

set  var  er  to  N 
endif 
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endwhile 

set  pointer  #1  el  for  opown  where  opno  eq  .vopid 

newpage 

if  el  eq  0  then 

set  var  vownid  to  ownno  in  #1 
set  error  messages  off 

set  pointer  #1  el  for  owner  where  ownid  eq  .vownid 
change  ownlname  to  .voplname  in  #1 
change  ownfname  to  .vopfname  in  #1 
change  ownmi  to  .vopmi  in  #1 
change  ownaddr  to  .vopaddr  to  #1 
change  owncity  to  .vopcity  in  #1 
change  ownstate  to  .vopst  in  #1 
change  ownzip  to  .vopzip  in  #1 
change  owntelno  to  .voptelno  in  #1 
change  owndob  to  .vopdob  in  #1 
set  error  messages  on 

write  "Values  for  this  person  also  changed  in  owner" 
set  var  chk  oper  to  N 
set  var  opcEange  to  N 
break 
else 

set  var  opchange  to  Y 
if  owchange  eq  Y  then 

if  voplname  eq  .vowlname  then 
newpage 

draw  owopform  with  all  at  1 

write  "Is  this  the  same  person?  (N)"  at  20  20 
fillin  same  using  "("  at  20  45 
if  same  exists  and  same  eq  Y  then 
load  opown 

.vownid  .vopid 
end 
endif 
endif 
endif 

set  var  chk_oper  to  N 
break 
endif 
else 

break 
endif 
endif 

next  #2  e2 
endwhile 
if  e2  ne  0  then 
newpage 

write  "This  operator  does  not  exist  in  the  database"  at  5  5 
write  "Do  you  wish  to  reenter  name?  (Y)"  at  10  5 
fillin  go  using  "("  at  10  34 
if  go  exists  and  go  eq  N  then 

set  var  chk_oper  to  N 
endif 
endif 
break 
endwhile 
else 

set  var  chk_oper  to  N 
endif 
endwhile 

set  var  choice  to  0 
endif 
endwhile  *(end  of  main  loop) 
set  error  messages  off 
set  null  -0- 
return 
*(  end  ) 
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$ COMMAND 

MOD  SUT 

* ( *X**********************************^ 

Program:  Modify  Sar  Unit 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:  August  1987 

Description:  This  program  allows  the  user  to  modify 

sar  unit  data  in  the  database. 

Tables  Used:  sar,  sarunits 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  sunitmod 

********************************************** *************************) 

set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.   Please  stand  by  "  at  10  10 

clear  all  variables 
set  null  ? 
set  var  more  to  Y 
set  var  vfoldno  text 
set  var  vunit  text 
set  var  foldok  to  N 
while  more  eq  Y  then  *(main  loop) 
set  var  name  to  N 
set  var  both  to  Y 
set  var  done  to  N 
set  var  change  to  N 

while  both  eq  Y  then  *( check,  both  folder  number  and  unit  name) 
newpage 
if  foldok  eq  N  then 

write  "Enter  sar  folder  number  of  unit  data  requiring  + 
modification:  "  at  10  1 

fillin  vfoldno  using  "  "  at  10  61 
endif 

write  "Enter  name  of  unit  requiring  modification:  "  at  12  1 
write  "(or  enter  'xxx'  to  list  units)"  at  13  5 
fillin  vunit  using  "  "  at  12  43 
while  vfoldno  exists  and  vunit  exists  then 

set  pointer  #1  el  for  sarunits  where  foldno  eq  .vfoldno  and  + 

unitname  eq  .vunit 

newpage 

if  el  eq  0  then 

set  var  vunit  to  unitname  in  #1 
set  var  vuwtime  to  uwtime  in  #1 
set  var  vuwdate  to  uwdate  in  #1 
set  var  voseta  to  oseta  in  #1 
set  var  vetadate  to  etadate  in  #1 
set  var  vostime  to  ostime  in  #1 
set  var  vdateos  to  osdate  in  #1 
set  var  valgtime  to  alngtime  in  #1 
set  var  valgdate  to  alngdate  in  #1 
set  var  vtowtime  to  towtime  in  #1 
set  var  vtowdate  to  towdate  in  #1 
set  var  vdvmoort  to  dvmoored  in  #1 
set  var  vdvmoord  to  dvmdate  in  #1 
set  var  vsumoort  to  sutmoor  in  #1 
set  var  vsumoord  to  sutdate  in  #1 
set  var  sul  to  foldno  in  #1 
set  var  su2  to  unitname  in  #1 
set  var  su3  to  uwtime  in  #1 
set  var  su4  to  uwdate  in  #1 
set  var  su5  to  oseta  in  #1 
set  var  su6  to  etadate  in  #1 
set  var  su7  to  ostime  in  #1 
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set  var  su8  to  osdate  in  #1 
set  var  su9  to  alngtime  in  #1 
set  var  sulO  to  alngdate  in  #1 
set  var  sull  to  towtime  in  #1 
set  var  sul2  to  towdate  in  #1 
set  var  sul3  to  dvmoored  in  #1 
set  var  sul4  to  dvmdate  in  #1 
set  var  sul5  to  sutmoor  in  #1 
set  var  sul6  to  sutdate  in  #1 
set  var  change  to  Y 
set  var  both  to  N 
break 
else 

set  pointer  #2  e2  for  sarunits  where  foldno  eq  .vfoldno 

newpage 

if  e2  eq  0  then 

set  var  foldok  to  Y 

if  vunit  eq  xxx  then 
set  var  both  to  N 
set  var  name  to  Y 
break 

endif 


does  not  exist  with  this  folder  + 

reenter  the  unit  name?  (Y)"  at  12  10 
■("  at  12  48 
correct  eq  N  then 


folder  number? 
then 


(Y)"  at  12  10 


newpage 

write  "This  unit  name 
number"  at  10  10 

write  "Do  you  wish  to 
fillin  correct  using 
if  correct  exists  and 
set  var  both  to  N 
set  var  name  to  Y 
endif 
break 
else 
newpage 

write  "This  folder  number  does  not  exist  in  the  database 
at  10  10 

write  "Do  you  wish  to  reenter  the 
fillin  correct  using  "("  at  12  52 
if  correct  fails  or  correct  eq 

break 
else 

set  var  both  to 
set  var  done  to 
break 
endif 
endif 
endif 
endwhile 
endwhile. . 

while  name  eq  Y  then  *( search  on  name 
newpage 

write  "The  following  unit  names  exist 
number"  at  1  2 
write  "  " 

sel  unitname  from  sarunits  where  foldno  eq  .vfoldno 
write  "Do  you  wish  to  enter/ reenter  the  unit  name?  (Y) 
fillin  reenter  using  "("  at  20  54 
if  reenter  exists  and  reenter  eq  N  then 
set  var  done  to  Y 


N 
Y 


with  existing  folder  number) 
within  the  indicated  folder  + 


at  20  10 


endif 
break 

endwhile 

if  change  eq  Y  then 
newpage 

write  "press  [PGDN]  to 
draw  sunitmod  with  all 
edit  var  vunit  vuwtime 
valgtime  valgdate  vtowtime 
vsumoord  return  esc  pgdn 
if  #return  eq  pgdn  then 


load  changes  or  [ESC]  to  quit"  at  1  1 
at  3- 

vuwdate  voseta  vetadate  vostime  vdateos  + 
vtowdate  vdvmoort  vdvmoord  vsumoort  + 
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set  error  messages  off 
delete  rows  from  #1 
load  sarunits 

.vfoldno  .vunit  .vuwtime  .vuwdate  .voseta  .vetadate  .vostime  + 
.vdateos  .valgtime  .valgdate  .vtowtime  .vtowdate  .vdvmoort  + 
.vdvmoord  .vsumoort  .vsumoord 
end 

set  pointer  #2  e2  for  sarunits  where  foldno  eq  .sul  and  + 
unitname  eq  .su2 
if  e2  ne  0  then 
load  sarunits 

.sul  .su2  .su3  .su4  .su5  .su6  .su7  .su8  .su9  . sulO  . sull  + 
.  sul2  .sul3  .sul4  .sul5  .sul6 
end 
endif 

set  error  messages  on 
endif 

set  var  done  to  Y 
endif 

if  done  eq  Y  then 
newpage 

write  "More  sar  units  to  be  changed?  (N)"  at  12  20 
fillin  mrsut  using  "("  at  12  50 
if  mrsut  fails  or  mrsut  eq  N  then 

set  var  more  to  N 
else 

set  var  foldok  to  N 
endif 
endif 
endwhile  *(end  of  main  loop) 
set  error  messages  off 
set  null  -0- 
return 
*(  end  ) 


$ COMMAND 

MOD  VHIN 

* / ********************************************** 

Program:  Modify  Vessel  HIN 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:      August  1987 

Description:       This  program  allows  the  user  to  modify 

vessel  hull  identification  numbers  in 

the  database. 
Tables  Used:       vessel,  sar,  boarding,  owvsl,  opvsl 
Temp  Tables :       none 
Reports  Used:      none 
Forms  Used:       vhinform 

***********************************************************************) 

set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.   Please  stand  by  "  at  10  10 

clear  all  variables 
set  null  ? 
set  var  more  to  Y 

while  more  eg  Y  then  *(main  loop) 
set  var  vslfound  to  N 


set  var  chk_hin  to  Y 
set  var  chk^name  to  N 
while  chk_hln  eq  Y  then 

newpage 

set  var  wslhin  text 
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write  "Enter  incorrect  vessel  hin:  "  at  10  10 
write  "(enter  'xxx'  to  search  by  vessel  name)"  at  12  5 
fillin  wslhin  using  "  "  at  10  37 
while  wslhin  exists  then 
if  wslhin  eq  xxx  then 
set  var  chk_hin  to  N 
set  var  chk_name  to  Y 
break 
endif 

set  pointer  #1  el  for  vessel  where  vslhin  =  .wslhin 
newpage 
if  el  eq  0  then 

*(vessel  exists  in  database) 
set  var  wslno  to  vslno  in  #1 
set  var  wslname  to  vslname  in  #1 
set  var  wslmake  to  vslmake  in  #1 
set  var  wslmod  to  vslmodel  in  #1 
set  var  wslyear  to  vslyear  in  #1 
set  var  vvslton  to  vsltons  in  #1 
set  var  wslft  to  vsllenft  in  #1 
set  var  wslin  to  vsllenin  in  #1 
set  var  wslhp  to  vslhp  in  #1 
set  var  wsluse  to  vsluse  in  #1 
set  var  wsltype  to  vsltype  in  #1 
set  var  wslprop  to  vslprop  in  #1 
set  var  wslhull  to  vslnull  in  #1 
set  var  wsleng  to  vsleng  in  #1 
set  var  wslfuel  to  vslfuel  in  #1 
set  var  vconstr  to  vslconst  in  #1 
set  var  voffno  to  vsloffno  in  #1 
draw  vhinform  with  all  at  1 
write  "Correct  vessel?  (Y)"  at  22  20 
fillin  vfound  using  "("  at  22  36 
if  vfound  fails  or  vfound  eq  Y  then 
set  var  chk  hin  to  N 
set  var  vslfound  to  Y  • 
break 
else 
newpage 

write  "Do  you  wish  to  reenter  the  HIN?  (Y)"  at  12  20 
fillin  reenter  using  "("  at  12  52 
if  reenter  exists  and  reenter  eq  N  then 
set  var  chk_hin  to  N 
set  var  chk^name  to  Y 
break 
endif 
endif 
else 
newpage 

write  "This  HIN  does  not  exist  in  the  database"  at  10  20 
write  "Do  you  wish  to  reenter  the  HIN?  (Y)"  at  12  20 
fillin  correct  using  "("  at  12  52 
if  correct  exists  and  correct  eq  N  then 
set  var  chk_hin  to  N 
set  var  chk_name  to  Y 
endif 
break 
endif 
endwhile 
endwhile 

while  chk_name  eq  Y  then 
newpage 

write  "Enter  name  of  vessel  requiring  HIN  correction:  "  at  10  10 
fillin  wslname  using  "  "  at  10  56 
while  wslname  exists  then 

set  pointer  #1  el  for  vessel  where  vslname  =  .wslname 

newpage 

while  el  eq  0  then 

*(vessel  exists  in  database) 
set  var  wslno  to  vslno  in  #1 
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set  var  wslname  to  vslname  in  #1 
set  var  wslhin  to  vslhin  in  #1 
set  var  wslmake  to  vslmake  in  #1 
set  var  wslmod  to  vslmodel  in  #1 
set  var  wslyear  to  vslyear  in  #1 
set  var  wslton  to  vsltons  in  #1 
set  var  wslft  to  vsllenft  in  #1 
set  var  wslin  to  vsllenin  in  #1 
set  var  wslhp  to  vslhp  in  #1 
set  var  wsluse  to  vsluse  in  #1 
set  var  wsltype  to  vsltype  in  #1 
set  var  wslprop  to  vslprop  in  #1 
set  var  wslhull  to  vslhull  in  #1 
set  var  wsleng  to  vsleng  in  #1 
set  var  wslfuel  to  vslfuel  in  #1 
set  var  vconstr  to  vslconst  in  #1 
set  var  voffno  to  vsloffno  in  #1 
newpage 

draw  vhinform  with  all  at  1 
write  "Correct  vessel?  (N)"  at  22  20 
fillin  foundv  using  "("  at  22  36 
if  foundv  exists  and  foundv  eq  Y  then 
set  var  chk  name  to  N 
set  var  vsliTound  to  Y 
break 
endif 

next  #1  el 
endwhile 
if  el  ne  0  then 
newpage 

write  "This  vessel  does  not  exist  in  the  database"  at  10  20 
write  "Do  you  wish  to  reenter  the  vessel  name?  (Y)"  at  12  20 
fillin  correct  using  "("  at  12  60 
if  correct  exists  and  correct  eq  N  then 

set  var  chk_name  to  N 
endif 
endif 
break 
endwhile 
endwhile 
if  vslfound  eq  Y  then 

set  var  vbadhin  to  .wslhin 
set  var  error  to  Y 
while  error  eq  Y  then 
set  var  error  to  N 
newpage 

write  "Press  [PGDN]  to  change  HIN  or  [ESC]  to  quit"  at  1  1 
draw  vhinform  with  all  at  3 
edit  var  wslhin  return  esc  pgdn 
if  ttreturn  eq  pgdn  then 
newpage 

change  vslhin  to  .wslhin  in  #1 

write  "Return  to  correct  HIN  entered?  (Y)"  at  15  10 
fillin  er  using  "("  at  15  41 
if  er  fails  or  er  eq  Y  then 

set  var  error  to  Y 
else 

set  pointer  #1  el  for  owvsl  where  vhinown  eq  .vbadhin 
write  "Changing  values  in  owvsl" 
while  el  eq  0  then 

change  vhinown  to  .wslhin  in  #1 
next  #1  el 
endwhile 

set  pointer  #1  el  for  opvsl  where  vhinoper  eq  .vbadhin 
write  "Changing  values  in  opvsl" 
while  el  eq  0  then 

change  vhinoper  to  .wslhin  in  #1 
next  #1  el 
endwhile 
set  pointer  #1  el  for  sar  where  sarvhin  eq  .vbadhin 
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write  "Changing  values  in  sar" 
while  el  eq  0  then 

change  sarvhin  to  .wslhin  in  #1 
next  #1  el 
endwhile 

set  pointer  #1  el  for  boarding  where  bovhin  eq  .vbadhin 
write  "Changing  values  in  boarding" 
while  el  eq  0  then 

change  bovhin  to  .wslhin  in  #1 
next  #1  el 
endwhile 
endif 
endif 
endwhile 
endif 
newpage 

write  "More  vessels  to  be  changed?  (N)"  at  12  20 
fillin  mrvsls  using  "("  at  12  48 
if  mrvsls  fails  or  mrvsls  eq  N  then 

set  var  more  to  N 
endif 
endwhile  *(end  of  main  loop) 
set  error  messages  off 
set  null  -0- 
return 
*(  end  ) 


$ COMMAND 
AM  VINT 

Program:  Add  and  Modify  Vessel  Intelligence 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:      August  1987 

Description:      This  program  allows  the  user  to  input 

and  modify  vessel  intelligence 

information. 
Tables  Used:      vslintel 
Temp  Tables:      none 
Reports  Used:      none 
Forms  Used:       vintform 

set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.  Please  stand  by  "  at  10  10 

clear  all  variables 
set  null  ? 
set  var  more  to  Y 
while  more  eq  Y  then  *(main  loop) 
newpage 

write  "Do  you  wish  to  (A)dd  or  (M)odify  information?"  at  10  10 
fillin  choice  using  ">''  at  11  20 
if  choice  eq  A  then   *(add  information) 
set  var  vmtdate  to  .#date 
set  var  vepic  text 
label  redovsl 
newpage 

write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  vintform  with  all  at  3 
edit  var  return  esc  pgdn 
if  ttreturn  eq  pgdn  then 
newpage 
write  "Loading  vslintel" 
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set  error  messages  off 
load  vslintel 

.wslname  .vintdate  .vepic  .vstolen  .vintreml  .vintrem2  + 

•vintrem3 
end 

set  error  messages  on 

write  "Return  to  correct  errors?  (N)"  at  15  10 
write  "Note:   correct  only  errors  indicated  by 
fillin  fixvsl  using  " ( "  at  15  36 
if  fixvsl  exists  and  fixvsl  eq  Y  then 

qoto  redovsl 


messages"  at  20  5 


*(modify  information) 
vessel  requiring  changes 
in  the  database  or  [ESC] 


then  press 
to  quit" 


[PGDN] 
at  2  1 


endif 
endif 
endif 

while  choice  eq  M  then 
newpage 

write  "Enter  name  of 
to  see  if"  at  1  1 

write  "vessel  exists 

draw  vintform  with  all  at  4 

edit  var  wslname  return  esc  pgdn 

if  #return  eq  pgdn  then 

set  pointer  #1  el  for  vslintel  where  intvname  eq  .wslname 
while  el  eq  0  then 

var  wslname  to  intvname  in  #1 
var  vintdate  to  intdate  in  #1 
var  vepic  to  epiccode  in  #1 
var  vstolen  to  stolen  in  #1 
var  vintreml  to  vremarkl  in 
var  vintrem2  to  vremark2  in 
var  vintrem3  to  vremark3  in 
newpage 

draw  vintform  with  all 
write  "Correct  vessel? 


set 
set 
set 
set 
set 
set 
set 


#1 
#1 
#1 


at  1 
(Y)" 


fillin  correct  using  "("  at 


at 
23 
eq 


25 


23 
41 
Y  then 


in  vslintel" 


if  correct  fails  or  correct 
label  corvsl 
newpage 

write  "Press  [PGDN]  to  change  database  or  [ESC]  to  quit"  + 
at  1  1 

draw  vintform  with  all  at  3 
edit  var  return  esc  pgdn 
if  ttreturn  eq  pgdn  then 

newpage 

write  "changing  values 

set  error  messages  off 

change  intvname  to  .wslname  in  #1 

change  intdate  to  .vintdate  in  #1 

change  epiccode  to  .vepic  in  #1 

change  stolen  to  .vstolen  in  #1 

change  vremarkl  to  .vintreml  in  #1 

change  vremark2  to  ,vihtrem2  in  #1 

change  vremark3  to  .vintrem3  in  #1 

set  error  messages  on 

write  "Return  to  correct  errors?  (N)"  at  15  10 

write  "Note:   correct  only  errors  indicated  by 

at  20  5 

fillin  vslfix  using  "("  at  15  36 

if  vslfix  exists  and  vslfix  eq  Y  then 
goto  corvsl 

endif 
endif 

set  var  choice  to  N 
break 
endif 
next  #1  el 
endwhile 
if  el  ne  0  then 


messages"  + 


newpage 
write  "This 


vessel  does  not  exist  in  the  vessel  intelligence  + 
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file"  at  5  10 

write  "Do  you  wish  to  reenter  name?  (Y)"  at  15  10 

fillin  reenter  using  "("  at  15  39 

if  reenter  exists  and  reenter  eq  N  then 

break 
else 

clear  wslname 
clear  vintdate 
clear  vepic 
clear  vstolen 
clear  vintreml 
clear  vintrem2 
clear  vintrem3 
endif 
endif 
else 

break 
endif 
endwhile 
newpage 

write  "More  intelligence  to  enter/modify?  (N)"  at  15  20 
fillin  mrintel  using  "("  at  15  55 
if  mrintel  fails  or  mrintel  eq  Y  then 
clear  all  variables 
set  var  more  to  Y 
else 

set  var  more  to  N 
endif 
endwhile  *(end  of  main  loop) 
set  error  messages  off 
set  null  -0- 
return 
*(  end  ) 


$ COMMAND  ' 

AM  PINT 

* ( ***********************************^ 

Program:  Add  and  Modify  Personnel  Intelligence 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:     August  1987 

Description:      This  program  allows  the  user  to  input 

and  modify  personnel  intelligence 

information. 
Tables  Used:       perintel 
Temp  Tables:       none 
Reports  Used:      none 
Forms  Used:       pintform 

************************************************************* 

set  error  messages  on 
set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.  Please  stand  by  "  at  10  10 

clear  all  variables 

set  null  ? 

set  var  more  to  Y 

while  more  eq  Y  then  *(main  loop) 

newpage 

write  "Do  you  wish  to  (A)dd  or  (M)odify  information?"  at  10  10 

fillin  choice  using  ">"  at  11  20 

if  choice  eq  A  then  *(add  information) 
newpage 

set  var  vintdate  to  .#date 
set  var  vintdob  to  01/01/1901 
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write  "Press  [PGDN]  to  load  data  or  [ESC]  to  quit"  at  1  1 
draw  pintform  with  all  at  3 
edit  var  return  esc  pgdn 
if  #return  eq  pgdn  then 
newpage 

write  "Loading  perintel" 
load  perintel 

.vlname  .vintdob  .vintreml  .vintrem2  .vintrem3  .vintdate  + 
.vfname  .vintmi 
end 
endif 
endif 

while  choice  eq  H  then  * (modify  information) 
newpage 

write  "Enter  last  and  first  names  of  individual  requiring  + 
changes,  then  press"  at  1  1 

write  "[PGDN]  to  see  if  person  exists  in  the  database  or  [ESC]  + 
to  quit"  at  2  1 

draw  pintform  with  all  at  4 

edit  var  vlname  vfname  return  esc  pgdn 

if  #return  eq  pgdn  then 

set  pointer  #1  el  for  perintel  where  intlname  eq  .vlname  and  + 
intfname  eq  .vfname 
while  el  eq  0  then 

set  var  vlname  to  intlname  in  #1 
set  var  vfname  to  intfname  in  #1 
set  var  vintdob  to  intdob  in  #1 
set  var  vintmi  to  intmi  in  #1 
set  var  vintreml  to  pintreml  in  #1 
set  var  vintrem2  to  pintrem2  in  #1 
set  var  vintrem3  to  pintrem3  in  #1 
set  var  vintdate  to  pintdate  in  #1 
newpage 

draw  pintform  with  all  at  1 
write  "Correct  individual  (Y)"  at  23  25 
fillin  correct  using  "("  at  23  44 
if  correct  fails  or  correct  eq  Y  then 
newpage 

write  "Press  [PGDN]  to  change  database  or  [ESC]  to  quit"  + 
at  1  1 

draw  pintform  with  all  at  3 
edit  var  return  esc  pgdn 
if  #return  eq  pgdn  then 
set  error  messages  off 
change  intlname  to  .vlname  in  #1 
change  intdob  to  .vintdob  in  #1 
change  pintreml  to  .vintreml  in  #1 
change  pintrem2  to  .vintrem2  in  #1 
change  pintrem3  to  .vintrem3  in  #1 
change  pintdate  to  .vintdate  in  SI 
change  intfname  to  .vfname  in  #1 
change  intmi  to  .vintmi  in  #1 
set  error  messages  on 
endif 

set  var  choice  to  N 
break 
endif 

next  #1  el 
endwhile 
if  el  ne  0  then 
newpage 

write  "This  individual  does  not  exist  in  the  personnel  + 
intelligence  file"  at  5  10 

write  "Do  you  wish  to  reenter  name?  (Y)"  at  15  10 

fillin  reenter  using  "("  at  15  39 

if  reenter  exists  and  reenter  eq  N  then 

break 
else 

clear  vlname 
clear  vfname 
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clear  vintdob 
clear  vintreml 
clear  vintrem2 
clear  vintrem3 

clear  vintmi  * 

clear  vintdate 
endif 
endif 
else 

break 
endif 
endwhile 
newpage 

write  "More  intelligence  to  enter/modify?  (Y)"  at  15  20 
fillin  mrintel  using  "("  at  15  55 
if  mrintel  fails  or  mrintel  eq  Y  then 
clear  all  variables 
set  var  more  to  Y 
else 

set  var  more  to  N 
endif 
endwhile  *(end  of  main  loop) 
set  error  messages  off 
set  null  -0- 
return 
*(  end  ) 
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APPENDIX  I 
SREPORTS  SOURCE  CODE 

$ COMMAND 

RPTMAIN 
*(********************************************************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

REPORTS  MAIN  MENU  APPLICATION  PROGRAM 

Author:  Jon  D.  Allen,  LT,  USCG 
Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

***************************************************** 

set  error  messages  off 

set  messages  off 

set  escape  off 

clear  all  variables 

newpage 

set  var  pick4  integer 

newpage 

choose  pick4  from  rpt_menu  in  sreports.apx 

if  pick4  eq  0  then 

quit  to  restrpts.cmd 
endif 
if  pick4  eq  1  then 

run  INT_RPTS  in  sreports.apx 

quit  to  restrpts.cmd 

endif 
if  pick4  eq  2  then 

run  BRD_RPTS  in  sreports.apx 

quit  to  restrpts.cmd 
endif 
if  pick4  eq  3  then 

run  SAR_RPTS  in  sreports.apx 

quit  to  restrpts.cmd 
endif 
if  pick4  eq  4  then 

run  VSL_RPTS  in  sreports.apx 

quit  to  restrpts.cmd 
endif 
if  pick4  eq  5  then 

run  PRS_RPTS  in  sreports.apx 

quit  to  restrpts.cmd 
endif 
if  pick4  eq  6  then 

quit  to  restmain.cmd 
endif 

quit  to  restrpts.cmd 
return 
$menu 
rpt_menu 

column  SARELTIS  ---  REPORTS  MENU 
INTELLIGENCE  REPORTS 
BOARDING  REPORTS 
SAR  REPORTS 
VESSEL  REPORTS 
PERSONNEL  REPORTS 
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RETURN  TO  MAIN  MENU 
*(  end  ) 


$ COMMAND 

INT  RPTS 
*/********************************************************************** 

Program:  Access  Intelligence  Reports 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  calls  the  intelligence  reports 

master  menu  and  application  programs. 

Tables  Used:  none 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  none 

*********************************************************************** \ 

run  INT_MAIN  in  intrpts.apx 

return 

*(  end  ) 


$ COMMAND 
BRD  RPTS 

* / ********************************************************************** 

Program:  Access  Boarding  Reports 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  calls  the  boarding  reports 

master  menu  and  application  programs. 

Tables  Used:  none 

Temp  Tables :  none 

Reports  Used:  none 

Forms  Used:  none 

****************************************************^ 

run  BRD_MAIN  in  brdrpts.apx 

return 

*(  end  ) 


$ COMMAND 

SAR  RPTS 

* ( ********************************************************************** 

Program:  Access  Sar  Reports 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  calls  the  SAR  reports  master 

menu  and  application  programs. 

Tables  Used:  none 

Temp  Tables :  none 

Reports  Used:  none 

Forms  Used:  none 

************************************************************* 

run  SAR_MAIN  in  sarrpts.apx 

return 

*(  end  ) 
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$ COMMAND 

VSL  RPTS 

* ( *********************************************************************** 


Program: 

Author: 

Date  Written: 

Description: 

Tables  Used: 
Temp  Tables : 
Reports  Used: 
Forms  Used: 


Access  Vessel  Reports 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  vessel  reports 

master  menu  and  application  programs. 

none 

none 

none 

none 


***********************************************************************) 

run  VSL_MAIN  in  vslrpts.apx 

return 

*(  end  ) 


$ COMMAND 
PRS  RPTS 


Program: 

Author: 

Date  Written: 

Description: 

Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Access  Personnel  Reports 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  calls  the  personnel  reports 

master  menu  and  application  programs. 

none 

none 

none 

none 


******************************************************** 

run  PRS_MAIN -in  prsrpts.apx 

return 

*(  end  ) 
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APPENDIX  J 
INTRPTS  SOURCE  CODE 

$ COMMAND 

INT  MAIN 

* / **************************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

INTELLIGENCE  REPORTS  MENU  and  APPLICATION  PROGRAMS 

Author:  Jon  D.  Allen,  LT,  USCG 
Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

*********************************************************************** \ 

set  error  messages  off 

set  messages  off 

set  escape  off 

clear  all  variables 

newpage 

choose  pick5  from  int_menu  in  intrpts.apx 

if  pick5  eq  0  then 

guit  to  restint.cmd 
endif 
if  pick5  eq  1  then 

run  EPICDUMP  in  intrpts.apx 

quit  to  restint.cmd 
endif 
if  pick5  eg  2  then 

'run  INTELRPT  in  intrpts.apx 

guit  to  restint.cmd 
endif 
if  pick5  eg  3  then 

run  PERINTEL  in  intrpts.apx 

quit  to  restint.cmd 
endif 
if  pick5  eq  4  then 

guit  to  restrpts.cmd 
endif 
if  pick5  eq  5  then 

quit  to  restint.cmd 
endif 

quit  to  restint.cmd 
return 
$menu 
mt_menu 

column  SARELTIS  INTELLIGENCE  REPORTS 

VESSEL  INTELLIGENCE  ANALYSIS  (EPIC) 

VESSEL  PROFILE  FOR  INDIVIDUAL  VIOLATIONS  ANALYSIS 

PERSONNEL  INTELLIGENCE  SUMMARY 

RETURN  TO  REPORTS  MENU 

*(  end  ) 


$ COMMAND 

PERINTEL 
*/********************************************************************** 
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Program:  Personnel  Intelligence  Dump  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:      This  program  performs  a  listing  by  date  and 

by  alphabtic  search  of  those  personnel  in 
the  table  PERINTEL  (personnel  intelligence). 

Tables  Used:      perintel 

Temp  Tables:      persum 

Reports  Used:      perintel 

Forms  Used:       none 

set  null  "  " 

set  error  messages  off 

set  messages  off 

set  escape  on 

newpage 

clear  all  variables 

set  error  messages  off 

write  "This  program  will  perform  dump  intelligence  information"  at  3  1 

write  "on  people  that  are  in  the  PERINTEL  table.   Information"  at  4  1 

write  "may  be  selected  by  alphabetic  and  intelligence  date."  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY: "  at  3  1 

fillin  strtdate  using  "  "  at  8  53 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 

fillin  enddate  using  "  "  at  10  53 

set  var  datediff  to  .enddate  -  .strtdate 
endwhile 
newpage 

write  "You  will  now  be  asked  to  provide  beginning  and  ending  "  at  3  1 
write  "letters  to  start  and  end  the  alphabetic  search.   If  you  "  at  4  1 
write  "enter  an  [a]  and  a  [z]  you  will  get  all  of  the  personnel"  at  5  1 
write  "in  the  the  table  PERINTEL  whose  intelligence  date  is  "  at  6  1 
write  "between  the  dates  that  you  previously  entered."  at  7  1 
set  var  strtltr  text 
set  var  endltr  text 
set  var  ltrdiff  to  0 
while  ltrdiff  =  0  then 

fillin  strtltr  using  "Please  enter  starting  letter(s):"  at  10  1 

fillin  endltr  using  "Please  enter  ending  letter(s):"  at  12  1 

if  endltr  It  .strtltr  then 
set  var  ltrdiff  to  0 

else 

break 

endif 
endwhile 

set  error  messages  off 
remove  persum 
newpage 
clear  numrows 
set  var  numrows  integer 

project  persum  from  perintel  using  all  sorted  by  intlname  + 
where  pintdate  ge  .strtdate  and  pintdate  le  .enddate  and  + 
intlname  ge  .strtltr  and  intlname  le  .endltr 
compute  numrows  as  rows  from  persum 
newpage 

write  "Now  preparing  report" 
if  numrows  fails  or  numrows  =  0  then 

write  "No  records  exist  that  match  your  selection  criteria"  at  10  10 

write  "Please  press  any  key  to  continue"  at  16  15 

pause 
else 

output  printer  with  perintel. rpt 

newpage 
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print  perintel 
output  screen 

endif 

remove  persum 

newpage 

clear  all  variables 

return 

*(  end  ) 


$ COMMAND 
EPICDUMP 

Program:  EPIC  Intelligence  Analysis 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:      Performs  a  dump  of  all  vessels  in  the 

VSLINTEL  table  within  a  specified  time 
period.   Four  reports  are  generated 
providing  listings  by  EPIC  Code,  by 
stolen  vessels,  and  by  intelligence 
remarks,  and  a  frequency  breakdown 
and  analysis  of  EPIC  Codes. 

Tables  Used:      vslintel 

Temp  Tables:      epicsum,  stolesum,  intelsum,  epictmpl, 

epictmp2,  epictmp 

Reports  Used:      epicsum,  stolesum,  intelsum,  epicrpt 

Forms  Used:       none 

set  error  messages  off 

set  messages  off 

set  escape  on 

newpage 

clear  all  variables 

set  null  "  " 

newpage 

write  "This  program  performs  a  dump  of  all  vessels,  by  EPIC  + 

Code/Stolen"  at  2  1 

write  "codes,  which  intelligence  information  has  been  collected."  + 

at  3  1 

write  "Information  to  be  analyzed  can  be  selected  within  a  specified"  + 

at  4  1 

write  "time  period."  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  .on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 

fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 

fillin  enddate  using  "  "  at  10  51 

set  var  datediff  to  .enddate  -  .strtdate  . 
endwhile 

set  error  messages  off 
remove  epicsum 
remove  stolesum 
remove  intelsum 
newpage 

project  epicsum  from  vslintel  using  epiccode  intdate  intvname  stolen  + 
sorted  by  epiccode  intvname  where  intdate  >=  .strtdate  and  + 
intdate  <=  .enddate  and  epiccode  exists 
compute  numrows  as  rows  from  epicsum 
newpage 

write  "Now  preparing  sorted  vessel  EPIC  Code  report "  at  10  1 

if  numrows  fails  or  numrows  =  0  then 
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write  "No  records  exist  that  match  your  selection  criteria"  at  10  10 

write  "Please  press  any  key  to  continue"  at  16  15 

pause 
else 

output  printer  with  epicsum. rpt 

newpage 

print  epicsum 

output  screen 
endif 

remove  epicsum 
newpage 
clear  numrows 

project  stolesum  from  vslintel  using  intdate  intvname  stolen  sorted  by  + 
intvname  where  intdate  >=  .strtdate  and  intdate  <=  .enddate  and  + 
stolen  =  Y 
compute  numrows  as  rows  from  stolesum 

write  "Now  preparing  sorted  stolen  vessel  report "  at  10  1 

if  numrows  fails  or  numrows  =  0  then 

write  "No  records  exist  that  match  your  selection  criteria"  at  10  10 

write  "Please  press  any  key  to  continue"  at  16  15 

pause 
else 

output  printer  with  stolesum. rpt 

newpage 

print  stolesum 

output  screen 
endif 

remove  stolesum 
newpage 
clear  numrows 

project  intelsum  from  vslintel  using  intdate  vremarkl  vremark2  + 
vremark3  intvname  sorted  by  intvname  intdate  where  vremarkl  exists  + 
or  vremark2  exists  or  vremark3  exists 
compute  numrows  as  rows  from  intelsum 

write  "Now  preparing  sorted  vessel  intelligence  remarks  report"  at  10  1 
if  numrows  fails  or  numrows  =  0  then 

write  "No  records  exist  that  match  your  selection  criteria"  at  10  10 

write  "Please  press  any  key  to  continue"  at  16  15 

pause 
else 

output  printer  with  intelsum. rpt 

newpage 

print  intelsum 

output  screen 
endif 

remove  intelsum 
remove  epictmpl 
remove  epictmp2 
newpage 

project  epictmpl  from  vslintel  using  epiccode  intdate  where  intdate  + 
>=  .strtdate  and  intdate  <=  .enddate  and  epiccode  exists 
project  epictmp2  from  epic  using  all  sorted  by  epicno 
remove  epictmp 
define 
attribute 
ecpct  real 
ecnumber  integer 
relation 

epictmp  with  epicno  epicdscl  epicdsc2  epicdsc3  epicdsc4  ecnumber  ecpct 
end 

compute  totepics  as  count  epiccode  from  epictmpl  where  epiccode  exists 
set  var  pcttmpl  real 
set  pointer  #1  nl  for  epictmp2 
while  nl  eq  0  then 

set  var  epictest  to  epicno  in  #1 

set  var  edscl  to  epicdscl  in  #1 

set  var  edsc2  to  epicdsc2  in  #1 

set  var  edsc3  to  epicdsc3  in  #1 

set  var  edsc4  to  epicdsc4  in  #1 

compute  epicnum  as  count  epiccode  from  epictmpl  where  + 
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epiccode  =  .epictest 

if  totepics  =  0  then 

set  var  pcttmpl  to  .epicnum  /  1.0     ^(prevents  division  by  0) 

else 

set  var  pcttmpl  to  .epicnum  /  .totepics 

endif 

set  var  pcttmp2  to  .pcttmpl  x  100.0 

load  epictmp 

.epictest  .edscl  .edsc2  .edsc3  .edsc4  .epicnum  .pcttmp2 

end 

next  #1  nl 
endwhile 

write  "Now  preparing  vessel  EPIC  code  frequency  report "  at  10  1 

output  printer  with  epicrpt.rpt 

newpage 

print  epicrpt 

newpage 

output  screen 

remove  epictmp2 

remove  epictmp 

remove  epictmpl 

newpage 

clear  all  variables 

return 

*(  end  ) 


$ COMMAND 
INTELRPT 

X ( x***************************************^ 

Program:  Violation  Vessel  Profile  Intelligence 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:      This  program  examines  vessel  boardings  to  - 

create  a  profile  of  vessel  which  violate 

specific  laws  during  a  specified  time  period. 
Tables  Used:      boarding,  vessel,  viols,  boattype,  boatuse, 

constr,  engcomp,  fuelcomp,  hullmat,  boatprop 
Temp  Tables:      bosum,  vslsum,  violsum,  vslmo, 

summaryl,  summary2,  summary3,  summary4, 

summary5,  summary6,  summary7,  temp 
Reports  Used:      vtypemo,  vusemo,  vconstmo,  vengmo, 

vfuelmo,  vhullmo,  vpropmo,  vlenftmo, 

vyearmo 
Forms  Used:       none 

set  null  "  " 

set  error  messages  off 

set  messages  off 

set  escape  on 

newpage 

clear  all  variables 

remove  vslsum 

remove  bosum 

remove  violsum 

remove  temp 

remove  summaryl 

remove  summary2 

remove  summary3 

remove  summary4 

remove  summary5 

remove  summary6 

remove  summary7 

newpage 

clear  all  variables 

write  "This  module  performs  a  statistical  analysis  of  vessel  "  at  2  1 
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write  "intelligence  information  during  a  specified  time  period  "  at  3  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 

fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 

fillin  enddate  using  "  "  at  10  51 

set  var  datediff  to  .enddate  -  .strtdate 
endwhile 
set  error  messages  off 

write  "Now  finding  information  which  meets  date  criteria "  at  14  1 

project  bosum  from  boarding  using  bodate  bono  viol54  viol55  viol56  + 

viol57  viol58  viol59  viol60  violbl  viol62  viol63  viol64  viol65  viol66  + 

viol67  viol68  uns69  uns70  uns71  uns72  uns73  uns74  uns75  uns76  uns77  + 

uns78  uns79  bovhin  weapons  where  bodate  >=  .strtdate  and  + 

bodate  <=  .enddate 

project  vslsum  from  vessel  using  vslconst  vsleng  vslfuel  vslhull  + 

vsllenft  vslprop  vsltype  vsluse  vslyear  vsltons  vslhin 

join  bosum  using  bovhin  with  vslsum  using  vslhin  forming  violsum  + 

v/here  eq 

remove  bosum 

remove  vslsum 

compute  totbrds  as  count  bono  from  violsum  where  bono  exists 

compute  numrows  as  rows  from  violsum 

newpage 

set  var  code  to  0 

set  error  messages  on 

while  code  <  54  or  code  >  80  then 

write  "Please  enter  in  violation  code  or  unsafe  condition  that  "  + 
at  1  1 

write  "you  wish  to  run  a  vessel  desription  statistical  summary:"  + 
at  2  1 

write  "54  -  Numbering 
at  4  1 

"55  -  Certificate 
"56  -  Personal  Flotation  Device 
6  1 

"57  -  Sound  Producing  Device 
"58  -  Bell 
in  bilges"  at  8  1 

write  "59  -  Fire  Extinguisher 

write  "60  -  Flame  Control 
Voyage"  at  10  1 

write  "61  -  Ventilation 
(13th  District)"  at  11  1 

write  "62  -  Nav. /Anchor  Lights 
at  12  1 

write  "63  -  Negligent  Operation 

write  "64  -  Failure  to  Terminate 

write 

write 
at  16  1 

write  "67  -  Visual  Distress  Signals"  at  17  1 

write  "68  -  Document/Official  Numbers"  at  18  1 

fillin  code  using  "Please  enter  code:  "  at  20  24 
endwhile 

set  error  messages  off 
remove  vslmo 
newpage 

write  "Now  evaluating  vessel  profile "  at  11  1 

*(this  next  section  of  code  finds  the  information  only 
dealing  with  the  specific  violation  code) 
if  code  =  54  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 

vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol54  exists 
endif 
if  code  =  55  then 


Causing" 
write 
write 

spot"  at 
write 
write 


69  -  Unsafe  Conditions  + 


70  - 

71  - 

72  - 


Termination"  at  5  1 
Corrected  on  the  + 

Overloaded"  at  7  1 
Accumulation  of  fuel 


73  -  Fuel  Leak"  at  9  1 

74  -  Manifestly  Unsafe  + 

75  -  Hazardous  Bars  + 

76  -  Alcohol  Condition"  + 

77  -  Other"  at  13  1 

78  -  Warning  Issued"  at  14  1 


"65  -  Pollution  Placard  Not  Posted  79  -  No  Violation"  at  15  1 
"66  -  Marine  Sanitation  Devices    80  -  Weapons  On  Board"  + 
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project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol55  exists 

endif 

if  code  =  56  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol56  exists 

endif 

if  code  =  57  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol57  exists 

endif 

if  code  =  58  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol58  exists 

endif 

if  code  =  59  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol59  exists 

endif 

if  code  =  60  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol60  exists 

endif 

if  code  =  61  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol61  exists 

endif 

if  code  =  62  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol62  exists 

endif 

if  code  =  63  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol63  exists 

endif 

if  code  =  64  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol64  exists 

endif 

if  code  =  65  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  vibl65  exists 

endif 

if  code  =  66  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol66  exists 

endif 

if  code  =  67  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol67  exists 

endif 

if  code  =  68  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  viol68  exists 

endif 

if  code  =  69  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  +■ 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns69  exists 

endif 

if  code  =70  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns70  exists 

endif 

if  code  =  71  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns71  exists 

endif 

if  code  ■  72  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 
vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns72  exists 
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endif 

if  code  =  73  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 

vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns73  exists 
endif 
if  code  =  74  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 

vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns74  exists 
endif 
if  code  =  75  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 

vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns75  exists 
endif 
if  code  =  76  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 

vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns76  exists 
endif 
if  code  =  77  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 

vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns77  exists 
endif 
if  code  =  78  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 

vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns78  exists 
endif 
if  code  =  79  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 

vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  uns79  exists 
endif 
if  code  =  80  then 

project  vslmo  from  violsum  using  vslconst  vsleng  vslfuel  vslhull  + 

vsllenft  vslprop  vsltype  vsluse  vslyear  bono  where  weapons  exists 
endif 

compute  numrows  as  rows  from  vslmo 
remove  violsum 
remove  summaryl 
remove  summary2 
remove  summary3 
remove  summary4 
newpage 

remove  summary5 
remove  summary6 
remove  summary7 
newpage 
if  numrows  fails  or  numrows  =  0  then 

write  "No  records  exist  that  match  your  selection  criteria"  at  10  10 

write  "Please  press  any  key  to  continue"  at  16  15 

pause 
else 

*(Now  getting  violation  code  description) 

set  pointer  #1  nl  for  viols 

while  nl  eq  0  then 

set  var  vno  to  violno  in  #1 
if  code  ■  .vno  then 

set  var  vltndesc  to  violdesc  in  #1 
break 
endif 
next  #1  nl 

endwhile 

newpage 

write  "Preparing  vessel  type  demographics " 

define 

attributes 

counter  integer 

typedesc  text  15 

relation 

summaryl  with  vsltype  typedesc  counter 

end 

set  pointer  #1  nl  for  boattype 

while  nl  eq  0  then 
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set  var  typetest  to  vtype  in  #1 

set  var  typdescl  to  vtypedes  in  #1 

compute  sum type  as  count  vsltype  from  vslmo  where  + 

vsltype  =  .typetest 

if  sumtype  fails  then 
set  var  sumtype  to  0 

endif 

load  summaryl 

.typetest  .typdescl  .sumtype 

end 

next  #1  nl 
endwhile 

compute  totviols  as  sum  counter  from  summaryl 
output  printer  with  vtypemo.rpt 
newpage 
print  vtypemo 
output  screen 
remove  summaryl 

write  "Preparing  vessel  use  demographics " 

define 

attributes 

numuse  integer 

usedesc  text  15 

relations 

summary2  with  vsluse  usedesc  numuse 

end 

set  pointer  #1  nl  for  boatuse 

while  nl  eq  0  then 

set  var  usetest  to  vuse  in  #1 

set  var  usedescl  to  vusedesc  in  #1 

compute  sumuse  as  count  vsluse  in  vslmo  where  vsluse  =  .usetest 

if  sumuse  fails  then 
set  var  sumuse  to  0 

endif 

load  summary2 

.usetest  .usedescl  .sumuse 

end 

next  #1  nl 
endwhile 

compute  totviols  as  sum  numuse  from  summary2 
output  printer  with  vusemo.rpt 
newpage 
print  vusemo 
output  screen 
remove  summary2 

write  "Preparing  vessel  construction  type  demographics " 

define 

attributes 

numconst  integer 

constdes  text  10 

relations 

summary3  with  vslconst  constdes  numconst 

end 

set  pointer  #1  nl  for  constr 

while  nl  eq  0  then 

set  var  consttst  to  constype  in  #1 

set  var  constrds  to  consdesc  in  #1 

compute  sumconst  as  count  vslconst  in  vslmo  where  + 

vslconst  =  .consttst 

if  sumconst  fails  then 
set  var  sumconst  to  0 

endif 

load  summary3 

.consttst  .constrds  .sumconst 

end 

next  #1  nl 
endwhile 

compute  totviols  as  sum  numconst  from  summary3 
output  printer  with  vconstmo.rpt 
newpage 
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print  vconstmo 

output  screen 

remove  summary3 

write  "Preparing  vessel  engine  compartment  demographics...." 

define 

attributes 

numeng  integer 

engdesc  text  10 

relations 

summary4  with  vsleng  engdesc  numeng 

end 

set  pointer  #1  nl  for  engcomp 

while  nl  eq  0  then 

set  var  engtst  to  ecomptyp  in  #1 

set  var  engdescr  to  ecompdes  in  #1 

compute  sumeng  as  count  vsleng  in  vslmo  where  vsleng  =  .engtst 

if  sumeng  fails  then 
set  var  sumeng  to  0 

endif 

load  summary4 

.engtst  .engdescr  .sumeng 

end 

next  #1  nl 
endwhile 

compute  totviols  as  sum  numeng  from  summary4 
output  printer  with  vengmo.rpt 
newpage 
print  vengmo 
output  screen 
remove  summary4 

write  "Preparing  fuel  compartment  type  demographics " 

define 

attributes 

numfuel  integer 

fueldesc  text  10 

relations 

summary5  with  vslfuel  fueldesc  numfuel 

end 

set  pointer  #1  nl  for  fuelcomp 

while  nl  eq  0  then 

set  var  fueltst  to  fcomptyp  in  #1 

set  var  fdesc  to  fcompdes  in  #1 

compute  sumfuel  as  count  vslfuel  in  vslmo  where  vslfuel  =  .fueltst 

if  sumfuel  fails  then 
set  var  sumfuel  to  0 

endif 

load  summary5 

.fueltst  .fdesc  .sumfuel 

end 

next  #1  nl 
endwhile 

compute  totviols  as  sum  numfuel  from  summary5 
output  printer  with  vfuelmo.rpt 
newpage 
print  vfuelmo 
output  screen 
remove  summary5 

write  "Preparing  hull  material  demographics " 

define 

attributes 

numhull  integer 

hulldesc  text  15 

relations 

summary6  with  vslhull  hulldesc  numhull 

end 

set  pointer  #1  nl  for  hullmat 

while  nl  eq  0  then 

set  var  nulltst  to  hmattype  in  #1 

set  var  hdesc  to  hmatdesc  in  #1 

compute  sumhull  as  count  vslhull  in  vslmo  where  vslhull  = 


.nulltst 
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if  sumhull  fails  then 
set  var  sumhull  to  0 

endif 

load  summary6 

.hulltst  .hdesc  .sumhull 

end 

next  #1  nl 
endwhile 

compute  totviols  as  sum  numhull  from  summary6 
output  printer  with  vhullmo.rpt 
newpage 
print  vhullmo 
output  screen 
remove  summary6 

write  "Preparing  vessel  propulsion  demographics " 

define 

attributes 

numprop  integer 

descprop  text  15 

relations 

summary7  with  vslprop  descprop  numprop 

end 

set  pointer  #1  nl  for  boatprop 

while  nl  eq  0  then 

set  var  proptst  to  proptype  in  #1 

set  var  prdesc  to  propdesc  in  #1 

compute  sumprop  as  count  vslprop  in  vslmo  where  vslprop  =  .proptst 

if  sumprop  fails  then 
set  var  sumprop  to  0 

endif 

load  summary7 

.proptst  .prdesc  .sumprop 

end 

next  #1  nl 
endwhile 

compute  totviols  as  sum  numprop  from  summary7 
output  printer  with  vpropmo.rpt 
newpage 
print  vpropmo 
output  screen 
remove  summary7 

write  "Preparing  vessel  length  demographics " 

compute  totvsls  as  count  bono  from  vslmo  where  vsllenft  exists 
compute  len<20  as  count  bono  from  vslmo  where  vsllenft  <  20 
compute  len2030  as  count  bono  from  vslmo  where  vsllenft  >=  20  and  + 
vsllenft  <  30 

compute  len3040  as  count  bono  from  vslmo  where  vsllenft  >=  30  and  + 
vsllenft  <  40 

compute  len4050  as  count  bono  from  vslmo  where  vsllenft  >=  40  and  + 
vsllenft  <  50 

compute  len5060  as  count  bono  from  vslmo  where  vsllenft  >=  50  and  + 
vsllenft  <  60 

compute  len6070  as  count  bono  from  vslmo  where  vsllenft  >=  60  and  + 
vsllenft  <  70 

compute  len7080  as  count  bono  from  vslmo  where  vsllenft  >=  70  and  + 
vsllenft  <  80 

compute  len8090  as  count  bono  from  vslmo  where  vsllenft  >=  80  and  + 
vsllenft  <  90 

compute  len90100  as  count  bono  from  vslmo  where  vsllenft  >=  90  and  + 
vsllenft  <  100 

compute  len>100  as  count  bono  from  vslmo  where  vsllenft  >=  100 
*( computing  total  number  of  violations) 
set  var  tvl  to  .len<20  +  .len2030 
set  var  tv2  to  .len3040  +  .len4050 
set  var  tv3  to  .len5060  +  .len6070 
set  var  tv4  to  .len7080  +  . Ien8090 
set  var  tv5  to  .len>100  +  ,len90100 
set  var  tvlO  to  .tvl  +  .tv2 
set  var  tv20  to  .  tv3  +  .tv4 
set  var  tv30  to  .tv5  +  .tvlO 
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set  var  totviols  to  .tv20  +  .tv30 
set  var  pct<20  real 
set  var  pct2030  real 
set  var  pct3040  real 
set  var  pct4050  real 
set  var  pct5060  real 
set  var  pct6070  real 
set  var  pct7080  real 
set  var  pct8090  real 
set  var  pct90100  real 
set  var  pct>100  real 
* (Evaluating  percentages  based  on  total  boardings) 
set  var  pct<20  to  .len<20  /  .totbrds 
set  var  pct2030  to  .len2030  /  .totbrds 
set  var  pct3040  to  .len3040  /  .totbrds 
set  var  pct4050  to  .len4050  /  .totbrds 
set  var  pct5060  to  .len5060  /  .totbrds 
set  var  pct6070  to  .len6070  /  .totbrds 
set  var  pct7080  to  .len7080  /  .totbrds 
set  var  pct8090  to  .len8090  /  .totbrds 
set  var  pct90100  to  .len90100  /  .totbrds 
set  var  pct>100  to  .len>100  /  .totbrds 
set  var  vpct<20  real 
set  var  vpct2030  real 
set  var  vpct3040  real 
set  var  vpct4050  real 
set  var  vpct5060  real 
set  var  vpct6070  real 
set  var  vpct7080  real 
set  var  vpct8090  real 
set  var  vpct9010  real 
set  var  vpctMOO  real 

* (Evaluating  percentages  based  on  total  violations) 
set  var  vpct<20  to  .len<20  /  .totviols 
set  var  vpct2030  to  .len2030  /  .totviols 
set  var  vpct3040  to  . Ien3040  / 
set  var  vpct4050  to  .len4050  / 
set  var  vpct5060  to  .len5060  / 

len6070  / 

len7080  / 

len8090  / 

len90100  / 

len>100  / 


totviols 

totviols 

totviols 

totviols 

totviols 

totviols 

. totviols 

totviols 


set  var  vpct6070  to 
set  var  vpct7080  to 
set  var  vpct8090  to 
set  var  vpct9010  to 
set  var  vpct>100  to 
set  var  pcttbrds  real 
set  var  pcttbrds  to  .totviols  /  .totbrds 
*(Defining  temporary  table  for  printing) 
remove  temp 
define 
attributes 
tmp  text  2 
relations 
temp  with  tmp 
end 

set  var  tmp  to  XX 
load  temp 

.tmp 
end 

output  printer  with  vlenftmo.rpt 
newpage 

print  vlenftmo 
output  screen 

write  "Preparing  vessel  year  demographics " 

compute  yr<1960  as  count  bono  in  vslmo  where  vslyear  <  1960 

compute  yr<1965  as  count  bono  in  vslmo  where  vslyear  >=  1960  and  + 

vslyear  <  1965 

compute  yr<1970  as  count  bono  in  vslmo  where  vslyear  >=  1965  and  + 

vslyear  <  1970 

compute  yr<1975  as  count  bono  in  vslmo  where  vslyear  >=  1970  and  + 

vslyear  <  1975 

compute  yr<1980  as  count  bono  in  vslmo  where  vslyear  >=  1975  and  + 
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vslyear  <  1980 

compute  yr<1985  as  count  bono  in  vslmo  where  vslyear  >=  1980  and  + 

vslyear  <  1985 

compute  yr<1990  as  count  bono  in  vslmo  where  vslyear  >=  1985  and  + 

vslyear  <  1990 

compute  yr<1995  as  count  bono  in  vslmo  where  vslyear  >=  1990  and  + 

vslyear  <  1995 

compute  yr<2000  as  count  bono  in  vslmo  where  vslyear  >=  1995  and  + 

vslyear  <  2000 

compute  yr>2000  as  count  bono  in  vslmo  where  vslyear  >=  2000 

set  var  vpct<60  real 

set  var  vpct<65  real 

set  var  vpct<70  real 

set  var  vpct<75  real 

set  var  vpct<80  real 

set  var  vpct<85  real 

set  var  vpct<90  real 

set  var  vpct<95  real 

set  var  vpct<00  real 

set  var  vpct>00  real 

*( Evaluating  percentages  based  on  total  violations) 

set  var  vpc£<60  to  .yr<1960  /  .totviols 

. totviols 

. totviols 

. totviols 

. totviols 

.totviols 

. totviols 

.totviols 

.totviols  • 

.totviols 


set  var  vpct<65  to  .yr<1965  / 
set  var  vpct<70  to  .yr<1970  / 
set  var  vpct<75  to  .yr<1975  / 
set  var  vpct<80  to  .yr<1980  / 
set  var  vpct<85  to  .yr<1985  / 
set  var  vpct<90  to  .yr<1990  / 
set  var  vpct<95  to  .yr<1995  / 
set  var  vpct<00  to  .yr<2000  / 
set  var  vpct>00  to  .yr>2000  / 
set  var  pct<60  real 
set  var  pct<65  real 
set  var  pct<70  real 
set  var  pct<75  real 
set  var  pct<80  real 
set  var  pct<85  real 
set  var  pct<90  real 
set  var  pct<95  real 
set  var  pct<00  real 
set  var  pct>00  real 

*( Evaluating  percentages  based  on  total  boardings) 
set  var  pct<60  to  .yr<1960  /  .totbrds 
set  var  pct<65  to  .yr<1965  /  .totbrds 
set  var  pct<70  to  .yr<1970  /  .totbrds 
set  var  pct<75  to  .yr<1975  /  .totbrds 
set  var  pct<80  to  .yr<1980  /  .totbrds 
set  var  pct<85  to  .yr<1985  /  .totbrds 
set  var  pct<90  to  .yr<1990  /  .totbrds 
set  var  pct<95  to  ,yr<1995  /  .totbrds 
set  var  pct<00  to  ,yr<2000  /  .totbrds 
set  var  pct>00  to  .yr>2000  /  .totbrds 
output  printer  with  vyearmo.rpt 
newpage 
print  vyearmo 
newpage 
output  screen 
remove  temp 
remove  vslmo 
remove  summaryl 
remove  summary2 
remove  summary3 
newpage 

remove  summary4 
remove  summary5 
remove  summary6 
remove  summary7 
newpage 

clear  all  variables 
endif 
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return 
*(   end  ) 
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APPENDIX  K 
BRDRPTS  SOURCE  CODE 

$ COMMAND 
BRD  MAIN 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

BOARDING  REPORTS  MENU  and  APPLICATION  PROGRAMS 

Author:  Jon  D.  Allen,  LT,  USCG 
Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

set  error  messages  off 

set  escape  off 

set  messages  off 

clear  all  variables 

newpage 

set  var  pick6  integer 

choose  pick6  from  brd_menu  in  brdrpts.apx 

if  pick6  eq  0  then 

quit  to  restbrd.cmd 
endif 
if  pick6  eq  1  then 

run  VIOLFREQ  in  brdrpts.apx 

quit  to  restbrd.cmd 
endif 
if  pick6  eq  2  then 

run  BOARDING  in  brdrpts.apx 

quit  to  restbrd.cmd 
endif 
if  pick6  eq  3  then 

run  CMERPT  in  brdrpts.apx 

quit  to  restbrd.cmd 
endif 
if  pick6  eq  4  then 

run  BOMAJOR-  in  brdrpts.apx 

quit  to  restbrd.cmd 
endif 
if  pick6  eg  5  then 

run  BOMINOR  in  brdrpts.apx 

quit  to  restbrd.cmd 
endif 
if  pick6  eq  6  then 

run  SMBOATRP  in  brdrpts.apx 

quit  to  restbrd.cmd 
endif 
if  pick6  eq  7  then 

run  DAYNIGHT  in  brdrpts.apx 

quit  to  restbrd.cmd 
endif 
if  pick6  eq  8  then 

quit  to  restrpts.cmd 
endif 

quit  to  restbrd.cmd 
return 
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$menu 

brd_menu 

column  SARELTIS  —  BOARDING  REPORTS 

VIOLATION/ UNSAFE  CONDITION  FREQUENCY 

BOARDINGS  SUMMARY  LISTING 

CME  DECALS:  ANALYSIS  OF  VESSELS  BOARDED 

LARGE  SCALE  AREA  BOARDING  LOCATION  ANALYSIS 

SMALL  SCALE  AND  COASTLINE  AREA  BOARDING  LOCATION  ANALYSIS 

SMALL  BOAT  OPERATIONS  AREA  BOARDING  LOCATION  ANALYSIS 

TIME  OF  DAY  BOARDING  CASE  ANALYSIS 

RETURN  TO  REPORTS  MENU 

*(  end  ) 


$ COMMAND 

VIOLFREQ 
*(********************************************************************** 

Program:  Violation  /  Unsafe  Condition  Frequency  Analysis 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:      This  program  performs  a  statistical  analysis 

of  boarding  violations  and  unsafe  conditions 

within  a  specified  time  period. 
Tables  Used:       boarding 
Temp  Tables:       frqchart,  temp 
Reports  Used:      violfreq,  unsfreq 
Forms  Used:        none 


************************************************************ 

set  null  "  " 

set  error  messages  off 

set  escape  on 

set  messages  off 

newpage 

clear  all  variables        t 

write  "This  module  performs  a  statistical  analysis  of  boarding  "  at  2  1 

write  "violations  and  unsafe  conditions  within  a  specified  "  at  3  1 

write  "time  period."  at  4  1 

set  var  strtdate  date 

set  var  enddate  date 

set  error  messages  on 

set  var  datediff  to  0 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  6  1 

fillin  strtdate  using  "  "  at  6  53 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  8  1 

fillin  enddate  using  "  "  at  8  53 

set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
project  frqchart  from  boarding  using  bono  viol54  viol55  viol56  viol57  + 

viol58  viol59  viol60  viol6l  violb2  viol63  viol64  viol65  viol66  + 

viol67  viol63  uns69  uns70  uns71  uns72  uns73  uns74  uns75  uns76  + 

uns77  uns78  uns79  where  bodate  ge  .strtdate  and  bodate  le  .enddate 
compute  viol54s  as  count  viol54  from  frqchart  where  viol54  exists 
compute  viol55s  as  count  viol55  from  frqchart  where  viol55  exists 
compute  viol56s  as  count  viol56  from  frqchart  where  viol56  exists 
compute  viol57s  as  count  viol57  from  frqchart  where  viol57  exists 
compute  viol58s  as  count  viol58  from  frqchart  where  viol58  exists 
compute  viol59s  as  count  viol59  from  frqchart  where  viol59  exists 
compute  viol60s  as  count  viol60  from  frqchart  where  viol60  exists 
compute  viol61s  as  count  viol61  from  frqchart  where  viol61  exists 
compute  viol62s  as  count  viol62  from  frqchart  where  viol62  exists 
compute  viol63s  as  count  viol63  from  frqchart  where  viol63  exists 
compute  viol64s  as  count  viol64  from  frqchart  where  viol64  exists 
compute  viol65s  as  count  viol65  from  frqchart  where  viol65  exists 
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) 


compute  viol66s  as  count  viol66  from  frqchart  where  viol66  exists 
compute  viol67s  as  count  viol67  from  frqchart  where  viol67  exists 
compute  viol68s  as  count  viol68  from  frqchart  where  viol68  exists 

^(computing  total  violations) 
set  var  vtotl  to  .viol54s  +  .viol55s 
set  var  vtot2  to  .viol56s  +  .viol57s 
set  var  vtot3  to  .viol58s  +  .viol59s 
set  var  vtot4  to  .viol60s  +  .viol61s 
set  var  vtot5  to  .viol62s  +  .viol63s 
set  var  vtot6  to  .viol64s  +  .viol65s 
set  var  vtot7  to  .viol66s  +  .viol67s 
set  var  vtot8  to  .vtotl  +  .viol68s 
set  var  vtot9  to  .vtot2  +  .vtot3 
set  var  vtotlO  to  .vtot4  +  .vtot5 
set  var  vtotll  to  .vtot6  +  .vtot7 
set  var  vtotl2  to  .vtot8  +  .vtot9 
set  var  vtotl3  to  . vtotlO  +  .vtotll 
set  var  vtotal  to  .vtotl2  +  .vtotl3 

compute  uns69s  as  count  uns69  from  frqchart  where  uns69  exists 
compute  uns70s  as  count  uns70  from  frqchart  where  uns70  exists 
compute  uns71s  as  count  uns71  from  frqchart  where  uns71  exists 
compute  uns72s  as  count  uns72  from  frqchart  where  uns72  exists 
compute  uns73s  as  count  uns73  from  frqchart  where  uns73  exists 
compute  uns74s  as  count  uns74  from  frqchart  where  uns74  exists 
compute  uns75s  as  count  uns75  from  frqchart  where  uns75  exists 
compute  uns76s  as  count  uns76  from  frqchart  where  uns76  exists 
compute  uns77s  as  count  uns77  from  frqchart  where  uns77  exists 
compute  uns78s  as  count  uns78  from  frqchart  where  uns78  exists 
compute  uns79s  as  count  uns79  from  frqchart  where  uns79  exists 

^(computing  total  unsafe  conditions) 
set  var  unstotl  to  .uns69s  +  .uns70s 
set  var  unstot2  to  .uns71s  +  .uns72s 
set  var  unstot3  to  .uns73s  +  .uns74s 
set  var  unstot4  to  .uns75s  +  .uns76s 
set  var  unstot5  to  .uns77s  +  .unstotl 
set  var  unstot6  to  .unstot2  +  .unstot3 
set  var  unstot7  to  .unstot4  +  .unstot5 
set  var  unstotal  to  .unstot6  +  .unstot7 

compute  totbrds  as  count  bono  from  frqchart  where  bono  exists 
set  var  viol54s  real 
set  var  viol55s  real 
set  var  viol56s  real 
set  var  viol57s  real 
set  var  viol58s  real 
set  var  viol59s  real 
set  var  viol60s  real 
set  var  viol61s  real 
set  var  viol62s  real 
set  var  viol63s  real 
set  var  viol64s  real 
set  var  viol65s  real 
set  var  viol66s  real 
set  var  viol67s  real 
set  var  viol68s  real 
set  var  uns69s  real 
set  var  uns70s  real 
set  var  uns71s  real 
set  var  uns72s  real 
set  var  uns73s  real 
set  var  uns74s  real 
set  var  uns75s  real 
set  var  uns76s  real 
set  var  uns77s  real 
set  var  uns78s  real 
set  var  uns79s  real 
set  var  totbrds  real 

^(computing  percentages  based  on  total  boardings) 
set  var  pct54tmp  to  .violb4s  /  .totbrds 
set  var  pct54  to  .pct54tmp  x  100.0 
set  var  pct55tmp  to  .viol55s  /  .totbrds 
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set 

set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 


var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 


pct55  to 

pct56tmp 

pct56  to 

pct57tmp 

pct57  to 

pct58tmp 

pct58  to 

pct59tmp 

pct59  to 

pct60tmp 

pct60  to 

pct61tmp 

pct61  to 

pct62tmp 

pct62  to 

pct63tmp 

pct63  to 

pct64tmp 

pct64  to 

pct65tmp 

pct65  to 

pct66tmp 

pct66  to 

pct67tmD 

pct67  to 

pct63tmp 

pct68  to 

pct69tmp 

pct69  to 

pct70tmp 

pct70  to 

pct71tmp 

pct71  to 

pct72tmp 

pct72  to 

pct73tmp 

pct73  to 

pct74tmp 

pct74  to 

pct75tmp 

pct75  to 

pct76tmp 

pct76  to 

pct77tmp 

pct77  to 

pct78tmp 

pct78  to 

bct79tmD 

pct79  to 

viol54s 

viol55s 

viol56s 

viol57s 

viol58s 

viol59s 

viol60s 

viol61s 

viol62s 

viol63s 

viol64s 

viol65s 

viol66s 

viol67s 

viol68s 

uns69s 

uns70s 

uns71s 

uns72s 

uns73s 

uns74s 


.pct55tmp  x 
to  .violb6s 
.pct56tmp  x 
to  .viol57s 
.pct57tmp  x 
to  .violb8s 
.pct58tmp  x 
to  .viol59s 
.pct59tmp  x 
to  .viol60s 
.pct60tmp  x 
to  .viol61s 
,pct61tmp  x 
to  .viol62s 
.pct62tmp  x 
to  .viol63s 
.pct63tmp  x 
to  .viol64s 
.pct&4tmp  x 
to  .viol65s 
.pct65tmp  x 
to  .viol66s 
.pct66tmp  x 
to  .viol67s 
.pct67tmp  x 
to  .viol63s 
.pct63tmo  x 
to  . uns69s  / 
.pct69tmp  x 
to  . uns70s  / 
.pct70tmp  x 
to  .uns71s  / 
.pct71tmp  x 
to  . uns72s  / 
.pct72tmD  x 
to  .uns73s  / 
.pct73tmp  x 
to  .uns74s  / 
.pct74tmp  x 
to  .uns75s  / 
.pct75tmp  x 
to  .uns76s  / 
.pct76tmp  x 
to  . uns7/s  / 
.pct77tmp  x 
to  . uns78s  / 
.pct78tmp  x 
to  .uns79s  / 
.pct79tmp  x 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 
integer 
integer 
integer 
integer 
integer 
integer 


100.0 

/  .totbrds 

100.0 

/  .totbrds 

100.0 

/  .totbrds 

100.0 

/  .totbrds 

100.0 

/  .totbrds 

100.0 

/  .totbrds 

100.0 

/  .totbrds 

100.0 

/  .totbrds 

100.0 

/  .totbrds 

100.0 

/  .totbrds 

100.0 

/  .totbrds 

100.0 

/  .totbrds 

100.0 

/  .totbrds 

100.0 

. totbrds 
100.0 

. totbrds 
100.0 

. totbrds 
100.0 

. totbrds 
100.0 

.totbrds 
100.0 

.  totbrds 
100.0 

.totbrds 
100.0 

.totbrds 
100.0 

.totbrds 
100.0 

. totbrds 
100.0 

. totbrds 
100.0 
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set 

var 

uns75s 

integer 

set 

var 

uns76s 

integer 

set 

var 

uns77s 

integer 

set 

var 

uns78s 

integer 

set 

var 

uns79s 

integer 

set 

var 

totbrds  integer 

remove  temp 

* (creating  temporary  table  for  printing  purposes) 
newpage 
define 
attributes 
pgcount  integer 
relations 
temp  with  pgcount 
end 
load  temp 

end 
newpage 

write  "Preparing  reports " 

output  printer  with  violfreq.rpt 

newpage 

print  violfreq 

newpage 

output  printer  with  unsfreq.rpt 

print  unsfreq 

newpage 

output  screen 

remove  frqchart 

remove  temp 

newpage 

clear  all  variables 

return 

*(  end  ) 


$ COMMAND 

BOARDING 

* ( ********************************************************************** 

Program:  Boarding  Summary  Listing  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:      This  program  performs  a  listing  of  the 

BOARDING  table  during  a  specified  time 

Eeriod.   The  report  is  sorted  by  date 
efore  being  printed. 
Tables  Used:       boarding 
Temp  Tables:       bosum 
Reports  Used:     boarding 
Forms  Used:       none 


************************************************************** 

set  null  "  " 

set  error  messages  off 

set  escape  on 

set  messages  off 

newpage 

clear  all  variables 

write  "This  program  will  dump  all  information  on  boardings  "  at  3  1 

write  "which  are  selected  based  on  boarding  date.   If  you  wish  to  + 

print"  at  4  1 

write  "out  the  entire  database  of  boardings,  please  enter  the  date  "  + 

at  5  1 

write  "[01/01/1900]  for  the  starting  date  and  todays  date  for  the  "  + 

at  6  1 

write  "ending  date "  + 
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at  7  1 

set  var  strtdate  date 
set  var  enddate  date 
set  var  datediff  to  0 
set  error  messages  on 
while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  9  1 

fillin  strtdate  using  "  "  at  9  53 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  11  1 

fillin  enddate  using  "  "  at  11  53 

set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
remove  bosum 
newpage 

Eroject  bosum  from  boarding  using  all  sorted  by  bodate  where  + 
odate  >=  .strtdate  and  bodate  <=  .enddate 
compute  numrows  as  rows  from  bosum 

write  "Now  preparing  report "  at  11  1 

if  numrows  fails  or  numrows  =  0  then 

write  "No  records  match  date  selection  criteria"  at  10  10 

write  "Please  press  any  key  to  continue"  at  16  10 

pause 
else 

output  printer  with  boarding. rpt 

newpage 

print  boarding 

newpage 

output  screen 
endif 

remove  bosum 
newpage 

clear  all  variables 
return 
*(  end  ) 


$ COMMAND 

BOMAJOR 

* / ******************************** 

Program:  Boarding  Major  Grid  Area  Frequency  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:       This  program  performs  a  statistical  analysis 

of  Boardings  to  determine  percentage  of  cases 
which  occur  in  areas  SDecified  by  coordinates 
found  in  the  MAJAREA  table  during  a  specified 
time  period. 

Tables  Used:      majarea,  boarding 

Temp  Tables:       bosum,  positfrq 

Reports  Used:      bomajor 

Forms  Used:       none 

***********************************************************************) 

set  null  "  " 

set  error  messages  off 

set  escape  on 

set  messages  off 

newpage 

clear  all  variables 

write  "This  module  performs  a  statistical  analysis  of  boarding  "  + 

at  2  1 

write  "locations  as  defined  by  major  grid  areas  during  a  specified  "  + 

at  3  1 

write  "period.  These  major  grid  areas  may  be  changed  by  modifying"  + 

at  4  1 
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write  "the  grid  positions  in  table  MAJAREA"  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 

fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 

fillin  enddate  using  "  "  at  10  51 

set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
remove  positfrq 
remove  bosum 
newpage 

set  var  northtst  real 
set  var  southtst  real 
set  var  westtst  real 
set  var  easttst  real 
set  var  gridcnt  integer 

project  positfrq  from  majarea  using  all  sorted  by  majgrid 
expand  positfrq  with  freqcnt  integer 
expand  positfrq  with  gridpct  real 
newpage 

write  "This  program  will  take  several  minutes  to  process  the  report."  h 
at  10  1 

write  "Please  be  patient "  at  11  1 

project  bosum  from  boarding  using  bono  obslat  obslong  where  + 

bodate  ge  .strtdate  and  bodate  le  .enddate 

compute  totbrds  as  count  bono  from  bosum 

set  var  gridpct  real 

set  var  temppct  real 

set  pointer  #1  grid  for  positfrq 

while  grid  eq  0  then 

set  var  northtst  to  majnorth  in  #1 

set  var  southtst  to  ma] south  in  #1 

set  var  easttst  to  majeast  in  #1 

set  var  westtst  to  majwest  in  #1 

compute  gridcnt  as  count  bono  from  bosum  where  obslat  <  .northtst  + 

and  obslat  >=  .southtst  and  obslong  <  .westtst  and  + 

obslong  >=  .easttst 

change  freqcnt  to  .gridcnt  in  #1 

set  var  temppct  to  .gridcnt  /  .totbrds 

if  temppct  fails  then 

set  var  temppct  to  0.0 

endif 

assign  gridpct  to  .temppct  x  100.0  in  #1 

next  #1  grid 
endwhile 

set  var  inarea  integer 
set  var  outarea  integer 
set  var  inpct  real 
set  var  outpct  real 

compute  inarea  as  sum  freqcnt  from  positfrq 
set  var  outarea  to  .totbrds  -  .inarea 
set  var  inpct  to  .inarea  /  .totbrds 
set  var  outpct  to  .outarea  /  .totbrds 
set  var  inpct  to  .inpct  x  100.0 
set  var  outpct  to  .outpct  x  100.0 
newpage 
write  "Processing  report  information  has  been  completed."  at  3  1 

write  "Now  preparing  report "  at  4  1 

output  printer  with  bomajor.rpt 

newpage 

print  bomajor 

newpage 

output  terminal 

remove  positfrq 

remove  bosum 
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newpage 

clear  all  variables 

return 

*(  end  ) 


$ COMMAND 

BOMINOR 

* (************************************* ********************************* 

Program:  Boarding  Minor  Grid  Area  Frequency  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:      This  program  performs  a  statistical  analysis 

of  Boardings  to  determine  percentage  of 
cases  which  occur  in  a  specified  location 
defined  in  the  MINAREA  table  during  a 
specified  time  period. 

Tables  Used:      boarding,  minarea 

Temp  Tables:      bosum,  positfrq 

Reports  Used: m  bominor 

Forms  Used:       none 


*********************************************************************** 

set  null  "  " 

set  error  messages  off 

set  escape  on  ' 

set  messages  off 

newpage 

clear  all  variables 

write  "This  module  performs  a  statistical  analysis  of  boarding  "  + 

at  2  1 

write  "locations  as  defined  by  minor  grid  areas  during  a  specified  "  + 

at  3  1 

write  "period.  These  minor  grid  areas  may  be  changed  by  modifying"  + 

at  4  1 

write  "the  grid  positions  in  table  MINAREA"  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0  *• 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 

fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 

fillin  enddate  using  "  "  at  10  51 

set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
remove  positfrq 
remove  bosum 
newpage 

set  var  northtst  real 
set  var  southtst  real 
set  var  westtst  real 
set  var  easttst  real 
set  var  gridcnt  integer 

project  positfrq  from  minarea  using  all  sorted  by  mingrid 
expand  positfrq  with  freqcnt  integer 
expand  positfrq  with  griapct  real 
newpage 

write  "This  program  will  take  several  minutes  to  process  the  report."  + 
at  10  1 

write  "Please  be  patient "  at  11  1 

roject  bosum  from  boarding  using  bono  obslat  obslong  where  + 
odate  ge  .strtdate  and  bodate  le  .enddate 
compute  totbrds  as  count  bono  from  bosum 
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set  var  gridpct  real 

set  var  temppct  real 

set  pointer  #1  grid  for  positfrq 

while  grid  eq  0  then 

set  var  northtst  to  minnorth  in  #1 

set  var  southtst  to  minsouth  in  #1 

set  var  easttst  to  mineast  in  #1 

set  var  westtst  to  minwest  in  #1 

compute  gridcnt  as  count  bono  from  bosum  where  obslat  <  .northtst  + 

and  obslat  >=  .southtst  and  obslong  <  .westtst  and  + 

obslong  >=  .easttst 

change  freqcnt  to  .gridcnt  in  #1 

set  var  temppct  to  .gridcnt  /  .totbrds 

if  temppct  fails  then 
set  var  temppct  to  0.0 

endif 

assign  gridpct  to  .temppct  x  100.0  in  #1 

next  #1  grid 
endwhile 

set  var  inarea  integer 
set  var  outarea  integer 

set  var.  inpct  real  ^. 

set  var  outpct  real 

compute  inarea  as  sum  freqcnt  from  positfrq 
set  var  outarea  to  .totbrds  -  .inarea 
set  var  inpct  to  .inarea  /  .totbrds 
set  var  outpct  to  .outarea  /  .totbrds 
set  var  inpct  to  .inpct  x  100.0 
set  var  outpct  to  .outpct  x  100.0 
newpage 
write  "Processing  report  information  has  been  completed."  at  3  1 

write  "Now  preparing  report "  at  4  1 

output  printer  with  bominor 

newpage 

print  bominor 

newpage 

output  terminal 

remove  positfrq 

remove  bosum 

newpage 

clear  all  variables 

return 

*(  end  ) 


$ COMMAND 

SMBOATRP 

* f ********************************************************************** 

Program:  Boarding  Small  Boat  Area  Frequency  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:     August  1987 

Description:      This  program  performs  a  statistical  analysis 

of  Boardings  to  determine  percentage  of  cases 
which  occur  in  the  small  boat  operating,  as 
defined  by  Coast  Guard  Group  Monterey's 
OPLAN  during  a  specified  time  period. 
.  Tables  Used:      boarding 

Temp  Tables:      temp,  bosum 

Reports  Used:      smboatrp 

Forms  Used:       none 

****************************************************** 


set  error  messages  off 
set  escape  on 
set  messages  off 
newpage 
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clear  all  variables 

remove  temp 

remove  bosum 

newpage 

write  "This  module  performs  a  statistical  analysis  of  boarding  "  + 

at  2  1 

write  "locations.   This  program  examines  the  number  of  boardings   "  + 

at  3  1 

write  "inside  and  outside  of  the  small  boat  operational  area  during  "  + 

at  4  1 

write  "a  specified  time  period.  "  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 

fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 

fillin  enddate  using  "  "  at  10  51 

set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
newpage 

write  "This  program  will  take  several  minutes  to  process  the  report."  + 
at  10  1 
write  "Please  be  patient "  at  11  1 

Eroject  bosum  from  boarding  using  bono  obslat  obslong  where  + 
odate  >=  .strtdate  and  bodate  <=  .enddate 
compute  totbrds  as  count  bono  from  bosum 
set  var  inside  to  0 
set  var  outside  to  0 
set  pointer  #1  nl  for  bosum 
while  nl  eq  0  then 
while  nl  eq  0  then 
set  var  obslat  to  obslat  in  #1 
set  var  obslong  to  obslong  in  #1 
if  obslat  <  36.100  then 

set  var  outside  to -.outside  +  1 
break 
endif  . 

if  obslong  <  121.40  then 

set  var  outside  to  .outside  +  1 
break 
endif 

if  obslat  >=  36.100  and  obslat  <=  36.180  and  obslong  >=  121.400  + 
and  obslong  <=  122.200  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  obslat  >=  36.180  and  obslat  <=  36.370  and  obslong  >=  121.400  + 
and  obslong  <=  122.250  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  obslat  >=  36.370  and  obslat  <=  36.480  and  obslong  >=  121.400  + 
and  obslong  <=  122.300  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  obslat  >=  36.480  and  obslat  <=  36.530  and  obslong  >=  121.400  + 
and  obslong  <=  122.350  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  obslat  >=  36.530  and  obslat  <=  36.570  and  obslong  >=  121.400  + 
and  obslong  <=  122.400  then 

set  var  inside  to  .inside  +  1 
break 
endif 
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if  obslat  >=  36.570  and  obslat  <=  37.000  and  obslong  >=  121.400  + 
and  obslong  <=  122.450  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  obslat  >=  37.000  and  obslat  <=  37.050  and  obslong  >=  121.400  + 
and  obslong  <=  122.450  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  obslat  >=  37.050  and  obslat  <=  37.100  and  obslong  >=  121.400  + 
and  obslong  <=  122.300  then 

set  var  inside  to  .inside  +  1 
break 
endif 

set  var  outside  to  .outside  +  1 
break 
endwhile 
next  #1  nl 
endwhile 
newpage 
define 
attributes 
tmp  text  2 
relations 
temp  with  tmp 
end 
load  temp 

"XX" 
end 
write  "Processing  report  information  has  been  completed."  at  3  1 

write.  "Now  preparing  report "  at  4  1 

output  printer  with  smboatrp.rpt 

newpage 

print  smboatrp 

newpage 

output  terminal 

remove  temp 

remove  bosum 

newpage 

clear  all  variables 

return 

*(  end  ) 


$ COMMAND 
CMERPT 

Program:  Courtesy  Motorboat  Examinations  (CME's) 

Statistical  Analysis 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:     August  1987 

Description:      This  program  performs  a  statistical  analysis 

of  vessels  that  were  boarded  to  determine 
the  frequency  of  CME's  and  their  year  of 
issue  during  a  specified  time  period. 

Tables  Used:      boarding,  vessel 

Temp  Tables:       bosum,  vslsum,  bovslsum,  temp 

Reports  Used:      cmerpt 

Forms  Used:       none 


set  error  messages  off 
set  escape  on 
set  messages  off 
newpage 
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clear  all  variables 

write  "This  program  will  perform  statistical  reports  on"  at  3  1 

write  "vessels  that  were  boarded  during  a  specified  time  with"  at  4  1 

write  "USCG  Auxiliary  Courtesy  Motorboat  Examinations  CMEs  Decals"  + 

at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 

fillin  strtdate  using  "  "  at  8  53 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 

fillin  enddate  using  "  "  at  10  53 

set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
remove  bosum 
remove  vslsum 
remove  bovslsum 
newpage 

Eroject  bosum  from  boarding  using  bono  bovhin  where  + 
odate  ge  .strtdate  and  bodate  le  .enddate 
project  vslsum  from  vessel  using  cmedecal  cmeyear  vslhin 
join  bosum  using  bovhin  with  vslsum  using  vslhin  forming  bovslsum  + 
where  eq 

compute  totbrds  as  count  bono  from  bovslsum 

compute  cmecount  as  count  cmedecal  from  bovslsum  where  cmedecal  =  Y 
if  cmecount  >=  1  and  totbrds  >=  1  then 

compute  before70  as  count  cmedecal  from  bovslsum  where  cmedecal  =  Y  + 

and  cmeyear  <=  1970 

compute  yr71to75  as  count  cmedecal  from  bovslsum  where  cmedecal  =  Y  + 

and  cmeyear  >=  1971  and  cmeyear  <=  1975 

compute  yr76to79  as  count  cmedecal  from  bovslsum  where  cmedecal  =  Y  + 

and  cmeyear  >=  1976  and  cmeyear  <=  1979 

compute  yr80to81  as  count  cmedecal  from  bovslsum  where  cmedecal  =  Y  + 

and  cmeyear  >=  1980  and  cmeyear  <=  191 

compute  yr82to83  as  count  cmedecal  from  bovslsum  where  cmedecal  =  Y  + 

and  cmeyear  >=  1982  and  cmeyear  <=  1983 

compute  yr84to85  as  count  cmedecal  from  bovslsum  where  cmedecal  =  Y  + 

and  cmeyear  >=  1984  and  cmeyear  <=  1985 

compute  yr86to87  as  count  cmedecal  from  bovslsum  where  cmedecal  =  Y  + 

and  cmeyear  >=  1986  and  cmeyear  <=  1987 

compute  yr88to89  as  count  cmedecal  from  bovslsum  where  cmedecal  =  Y  + 

and  cmeyear  >=  1988  and  cmeyear  <=  1989 

compute  after90  as  count  cmedecal  from  bovslsum  where  cmedecal  =  Y  + 

and  cmeyear  >=  1990 

set  var  pctlt70  real 

set  var  pct7175  real 

set  var  pct7679  real 

set  var  pct8081  real 

set  var  pct8283  real 

set  var  pct8485  real 

set  var  pct8687  real 

set  var  pct8889  real 

set  var  pctqt90  real 

if  totbrds  rails  or  totbrds  =  0  then 
set  var  totbrds  to  1 

endif 

set  var  pctlt70  to  .before70  /  .totbrds 

set  var  pct7175  to  .yr71to75  /  .totbrds 

set  var  pct7679  to  .yr76to79  /  .totbrds 

set  var  pct8081  to  .yr80to81  /  .totbrds 

set  var  pct8283  to  .yr82to83  /  .totbrds 

set  var  pct8485  to  .yr84to85  /  .totbrds 

set  var  pct8687  to  .yr86to87  /  .totbrds 

set  var  pct8889  to  .yr88to89  /  .totbrds 

set  var  pctgt90  to  .after90  /  .totbrds 

set  var  vpct70  real 

set  var  vpct71  real 
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cmecount 
cmecount 
cmecount 


set  var  vpct76  real 

set  var  vpct80  real 

set  var  vpct82  real 

set  var  vpct84  real 

set  var  vpct86  real 

set  var  vpct88  real 

set  var  vpct90  real 

if  cmecount  =  0  or  cmecount  fails  then 
set  var  cmecount  to  1 

endif 

set  var  vpct70  to  .before70  / 

set  var  vpct71  to  .yr71to75  / 

set  var  vpct76  to  .yr76to79  / 

set  var  vpct80  to  .yr80to81  /  .cmecount 

set  var  vpct82  to  .yr82to83  /  .cmecount 

set  var  vpct84  to  ,yr84to85  /  .cmecount 

set  var  vpct86  to  .yr86to87  /  .cmecount 

set  var  vpct88  to  .yr88to89  /  .cmecount 

set  var  vpct90  to  .after90  /  .cmecount 

set  var  pctcme  real 

set  var  pctcme  to  .cmecount  /  .totbrds 

remove  temp 

newpage 

write  "Processing  of  statistical  information  completed."  at  10  1 

write  "Now  preparing  report "  at  11  1 

^(creating  temporary  relation  for  printing  purposes) 

define 

attributes 

tmp  text  2 

relations 

temp  with  tmp 

end 

load  temp 
"XX" 

end 

output  printer  with  cmerpt.rpt 

newpage 

print  cmerpt 

newpage 

output  screen 
else 

newpage 

write  "No  records  match  your  selection  criteria"  at  10  15 

write  "Please  press  any  key  to  continue"  at  15  20 

pause 

newpage 
endif 

remove  bosum 
remove  vslsum 
remove  bovslsum 
remove  temp 
clear  all  variables 
return 
*(  end  ) 


$ COMMAND 

DAYNIGHT 


Program: 

Author: 

Date  Written: 

Description: 


Tables  Used: 


Daytime  vs.  Nighttime  Frequency  Analysis 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 
of  SAR  cases  and  Boardings  to  determine 
percentage  of  cases  which  occur  in  the 
daytime  vs  those  that  occur  at  night  during 
a  specified  time  period, 
sar,  boarding 


358 


Temp  Tables:      sarsum,  bosum,  temp 
Reports  Used:      daynight 
Forms  Used:       none 

********************************************************** 

set  null  "  " 

set  error  messages  off 

set  escape  on 

set  messages  off 

clear  all  variables 

remove  sarsum 

newpage 

write  "This  program  performs  a  statistical  analysis  of  Search  &"  at  2  1 

write  "Rescue  cases  and  Boardings  to  determine  the  percentage  of  "  + 

at  3  1 

write  "cases  which  occurred  during  the  day  and  at  night  during  a  "  + 

at  4  1 

write  "specified  time  period.  "  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 

fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1  ' 

fillin  enddate  using  "  "  at  10  51 

set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 

project  sarsum  from  sar  using  ssunrise  ssunset  sartime  sardate  where  + 
sardate  >=  .strtdate  and  sardate  <=  .enddate  and  ssunrise  exists  and  + 
sartime  exists 

compute  daysar  as  count  sartime  from  sarsum  where  sartime  gea  + 
ssunrise  and  sartime  lta  ssunset 

compute  nitesar  as  count  sartime  from  sarsum  where  sartime  lta  + 
ssunrise  or  sartime  gea  ssunset 
set  var  totsars  to  .daysar  +  .nitesar 
set  var  pctdays  real 
set  var  pctnites  real 
set  var  pctdays  to  .daysar  /  .totsars 
set  var  pctnites  to  .nitesar  /  .totsars 
set  var  pctdays  to  .pctdays  x  100.0 
set  var  pctnites  to  .pctnites  x  100.0 
remove  sarsum 
remove  bosum 
newpage 

Eroject  bosum  from  boarding  using  bsunset  bsunrise  botime  bodate  where  + 
odate  >=  .strtdate  and  bodate  <=  .enddate  and  bsunrise  exists  and  + 
botime  exists 

compute  daybrd  as  count  botime  from  bosum  where  botime  gea  bsunrise*+ 
and  botime  lta  bsunset 

compute  nitebrd  as  count  botime  from  bosum  where  botime  lta  bsunrise  + 
or  botime  gea  bsunset 
set  var  totbrds  co  .daybrd  +  .nitebrd 
set  var  pctdayb  real 
set  var  pctniteb  real 
set  var  pctdayb  to  .daybrd  /  .totbrds 
set  var  pctniteb  to  .nitebrd  /  .totbrds 
set  var  pctdayb  to  .pctdayb  x  100.0 
set  var  pctniteb  to  .pctniteb  x  100.0 
remove  bosum 
remove  temp 
newpage 
define 
attributes 
tmp  text  2 
relations 
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temp  with  tmp 

end 

load  temp 

"XX" 
end 
newpage 

write  "Preparing  report " 

output  printer  with  daynight.rpt 

newpage 

print  daynight 

newpage 

output  screen 

remove  sarsum 

remove  bosum 

remove  temp 

newpage 

return 

*(  end  ) 
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APPENDIX  L 
SARRPTS  SOURCE  CODE 

$ COMMAND 
SAR  MAIN 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

SAR  REPORTS  MENU  and  APPLICATION  PROGRAMS 

Author:  Jon  D.  Allen,  LT,  USCG 
Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

set  error  messages  off 

set  messages  ofr 

set  escape  off 

clear  all  variables 

newpage 

set  var  pick7  integer 

choose  pick7  from  sar_menu  in  sarrpts.apx 

if  pickv  eq  0  then 

quit  to  restsar.cmd 
endif 
if  pick7  eg  1  then 

run  IMMEDSAR  in  sarrpts.apx 

quit  to  restsar.cmd 
endif 
if  pick7  eq  2  then 

run  SARMINOR  in  sarrpts.apx 

quit  to  restsar.cmd 
endif 
if  pick7  eq  3  then 

run  SARMAJOR  in  sarrpts.apx 

quit  to  restsar.cmd 
endif 
if  pick7  eq  4  then 

run  SARSMBT  in  sarrpts.apx 

quit  to  restsar.cmd 
endif 
if  pick7  eq  5  then 

run  SARDUMP  in  sarrpts.apx 

quit  to  restsar.cmd 
endif 
if  pick7  eq  6  then 

run  SARTIMES  in  sarrpts.apx 

quit  to  restsar.cmd 
endif 
if  pick7  eq  7  then 

run  SARD AY  in  sarrpts.apx 

quit  to  restsar.cmd 
endif 
if  pick7  eq  8  then 

run  DAYNIGHT  in  sarrpts.apx 

quit  to  restsar.cmd 
endif 
if  pick7  eq  9  then 
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quit  to  restrpts.cmd 
endif 

quit  to  restsar.cmd 
return 
$menu 
sar_menu 

column  SARELTIS  — -  SAR  REPORTS 
ANALYSIS  OF  IMMEDIATE  DISTRESS  SAR  CASES 
MINOR  AREA  (MINAREA  table)  LOCATION  ANALYSIS 
MAJOR  AREA  (MAJAREA  table)  LOCATION  ANALYSIS 
INSIDE/OUTSIDE  SMALL  BOAT  OPAREA  LOCATION  ANALYSIS 
SAR  TABLE  SUMMARY  LISTING 
SAR  UNIT  TIME  EXPENDED  DURING  SAR  CASES 
DAY  OF  THE  WEEK,   MONTH,   AND  YEAR  ANALYSIS 
SAR  CASE  ANALYSIS:   DAYTIME/NIGHTTIME  FREQUENCY 
RETURN  TO  REPORTS  MENU 
*(  end  ) 


$COMMAND 

SARMAJOR 
*(********************************************************************** 

Program:  SAR  Major  Grid  Area  Frequency  Analysis 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:      This  program  performs  a  statistical  analysis 

of  SAR  cases  to  determine  percentage  of 
cases  which  occur  in  specified  locations  in 
the  table  MAJAREA  during  a  specified  time 
period. 

Tables  Used:      majarea,  sar 

Temp  Tables:      sarsum,  positfrq 

Reports  Used:      sarmajor 

Forms  Used:       none 

***************************************************** 

set  null  "  " 

set  error  messages  off 

set  messages  off 

set  escape  on 

newpage 

clear  all  variables 

write  "This  module  performs  a  statistical  analysis  of  SAR  case  "  at  2  1 

write  "locations  as  defined  by  major  grid  areas  during  a  specified  "  + 

at  3  1 

write  "period.  These  major  grid  areas  may  be  changed  by  modifying"  + 

at  4  1 

write  "the  grid  positions  in  table  MAJAREA"  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 

fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 

fillin  enddate  using  "  "  at  10  51 

set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
remove  positfrq 
remove  sarsum 
newpage 

set  var  northtst  real 
set  var  southtst  real 
set  var  westtst  real 
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set  var  easttst  real 

set  var  gridcnt  integer 

project  positfrq  from  majarea  using  all  sorted  by  majgrid 

expand  positfrq  with  freqcnt  integer 

expand  positfrq  with  gridpct  real 

newpage 

write  "This  program  will  take  several  minutes  to  process  the  report."  h 

at  10  1 

write  "Please  be  patient "  at  11  1 

project  sarsum  from  sar  using  folderno  sarlat  sarlong  where  + 

sardate  ge  .strtdate  and  saraate  le  .enddate 

compute  totsars  as  count  folderno  from  sarsum 

compute  numrows  as  rows  from  sarsum 

set  var  gridpct  real 

set  var  temppct  real 

set  pointer  #1  grid  for  positfrq 

while  grid  eq  0  then 

set  var  northtst  to  majnorth  in  #1 

set  var  southtst  to  ma] south  in  #1 

set  var  easttst  to  majeast  in  #1 

set  var  westtst  to  majwest  in  #1 

compute  gridcnt  as  count  folderno  from  sarsum  where  + 

sarlat  <  .northtst  and  sarlat  >=  .southtst  and  sarlong  <  .westtst  + 

and  sarlong  >=  .easttst 

change  freqcnt  to  .gridcnt  in  #1 

set  var  temppct  to  .gridcnt  /  .totsars 

if  temppct  rails  then 
set  var  temppct  to  0.0 

endif 

assign  gridpct  to  .temppct  x  100.0  in  #1 

next  #1  grid 
endwhile 

set  var  inarea  integer 
set  var  outarea  integer 
set  var  inpct  real 
set  var  outpct  real 

compute  inarea  as  sum  freqcnt  from  positfrq 
set  var  outarea  to  .totsars  -  .inarea 
set  var  inpct  to  .inarea  /  .totsars 
set  var  outpct  to  .outarea  /  .totsars 
set  var  inpct  to  .inpct  x  100.0 
set  var  outpct  to  .outpct  x  100.0 
newpage 
write  "Processing  report  information  has  been  completed."  at  3  1 

write  "Now  preparing  report "  at  4  1 

if  numrows  fails  or  numrows  =  0  then 

newpage 

write  "No  records  exist  in  the  database  matching  your  selection  + 
criteria"  at  10  1 

write  "Please  press  any  key  to  return  to  menu"  at  16  10 

pause 
else 

output  printer  with  sarmajor.rpt 

newpage 

print  sarmajor 

newpage 

output  terminal 
endif 

remove  positfrq 
remove  sarsum 
newpage 

clear  all  variables 
return 
*(  end  ) 


$ COMMAND 
SARMINOR 
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Program:  SAR  Minor  Grid  Area  Frequency  Analysis 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:       This  program  performs  a  statistical  analysis 

of  SAR  cases  to  determine  percentage  of 
cases  which  occur  in  locations  specified  by 
coordinates  contained  in  the  table  MINAREA 
during  a  specified  time  period. 

Tables  Used:       sar,  minarea 

Temp  Tables:       sarsum,  positfrq 

Reports  Used:      sarminor 

Forms  Used:       none 

************************************************************ 

set  null  "  " 

set  error  messages  off 

set  messages  off 

set  escape  on 

newpage 

clear  all  variables 

write  "This  module  performs  a  statistical  analysis  of  SAR  case  "  at  2  1 

write  "locations  as  defined  by  minor  grid  areas  during  a  specified  "  + 

at  3  1 

write  "period.  These  major  grid  areas  may  be  changed  by  modifying"  + 

at  4  1 

write  "the  grid  positions  in  table  MINAREA"  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 

fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 

fillin  enddate  using  "  "  at  10  51 

set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
remove  positfrq 
remove  sarsum 
newpage 

set  var  northtst  real 
set  var  southtst  real 
set  var  westtst  real 
set  var  easttst  real 
set  var  gridcnt  integer 

project  positfrq  from  minarea  using  all  sorted  by  mingrid 
expand  positfrq  with  freqcnt  integer 
expand  positfrq  with  gridpct  real 
newpage 

write  "This  program  will  take  several  minutes  to  process  the  report."  + 
at  10  1 

write  "Please  be  patient. "  at  11  1 

project  sarsum  from  sar  using  folderno  sarlat  sarlong  where  + 

sardate  ge  .strtdate  and  sardate  le  .enddate 

compute  totsars  as  count  folderno  from  sarsum 

compute  numrows  as  rows  from  sarsum 

set  var  gridpct  real 

set  var  temppct  real 

set  pointer  #1  grid  for  positfrq 

while  grid  eq  0  then 

set  var  northtst  to  minnorth  in  #1 

set  var  southtst  to  minsouth  in  #1 

set  var  easttst  to  mineast  in  #1 

set  var  westtst  to  minwest  in  #1 

compute  gridcnt  as  count  folderno  from  sarsum  where  + 

sarlat  <  .northtst  and  sarlat  >=  .southtst  and  sarlong  <  .westtst  + 
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and  sarlong  >=  .easttst 

change  freqcnt  to  .gridcnt  in  #1 

set  var  temppct  to  .gridcnt  /  .totsars 

if  temppct  fails  then 
set  var  temppct  to  0.0 

endif 

assign  gridpct  to  .temppct  x  100.0  in  #1 

next  #1  grid 
endwhile 

set  var  inarea  integer 
set  var  outarea  integer 
set  var  inpct  real 
set  var  outpct  real 

compute  inarea  as  sum  freqcnt  from  positfrq 
set  var  outarea  to  .totsars  -  .inarea 
set  var  inpct  to  .inarea  /  .totsars 
set  var  outpct  to  .outarea  /  .totsars 
set  var  inpct  to  .inpct  x  100.0 
set  var  outpct  to  .outpct  x  100.0 
newpage 
write  "Processing  report  information  has  been  completed."  at  3  1 

write  "Now  preparing  report "  at  4  1 

if  numrows  fails  or  numrows  =  0  then 

newpage 

write  "No  records  exist  in  the  database  matching  your  selection  + 
criteria"  at  10  1 

write  "Please  press  any  key  to  return  to  menu"  at  16  10 

pause 
else 

output  printer  with  sarminor.rpt 

newpage 

print  sarminor 

newpage 

output  terminal 
endif 

remove  positfrq 
remove  sarsum 
newpage 

clear  all  variables 
return 
*(  end  ) 


$ COMMAND 
SARSMBT 


Program: 
Author: 
Date  Written 
Description: 


Tables  Used: 
Temp  Tables  : 
Reports  Used: 
Forms  Used: 


SAR  Case  Small  Boat  Area  Frequency  Program 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  statistical  analysis 

of  SAR  Cases  to  determine  percentage  of 

cases  which  occur  in  the  small  boat  operating 

as  defined  by  Coast  Guard  Group  Monterey's 

OPLAN  during  a  specified  time  period. 

sar 

temp,  sarsum 

sarsmbt 

none 


set  null  "  " 

set  error  messages  off 

set  messages  off 

set  escape  on 

newpage 

clear  all  variables 
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remove  temp 

remove  sarsum 

newpage 

write  "This  module  performs  a  statistical  analysis  of  SAR  Case  "  at  2  1 

write  "locations.  This  program  examines  the  number  of  SAR  Cases   "  + 

at  3  1 

write  "inside  and  outside  of  the  small  boat  operational  area  during  "  + 

at  4  1 

write  "a  specified  time  period.  "  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1  • 
fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 
fillin  enddate  using  "  "  at  10  51 
set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
newpage 

write  "This  program  will  take  several  minutes  to  process  the  report."  + 
at  10  1 

write  "Please  be  patient "  at  11  1 

project  sarsum  from  sar  using  folderno  sarlat  sarlong  where  + 
sardate  >=  .strtdate  and  saraate  <=  .enddate 
compute  totsars  as  count  folderno  from  sarsum 
compute  numrows  as  rows  from  sarsum 
set  var  inside  to  0 
set  var  outside  to  0 
set  pointer  #1  nl  for  sarsum 
while  nl  eg  0  then 
while  nl  eq  0  then 
set  var  sarlat  to  sarlat  in  #1 
set  var  sarlong  to  sarlong  in  #1 
if -sarlat  <  36.100  then 

set  var  outside  to  .outside  +  1 
break 
endif 
if  sarlong  <  121.40  then 

set  var  outside  to  .outside  +  1 
break 
endif 

if  sarlat  >=  36.100  and  sarlat  <=  36.180  and  sarlong  >=  121.400  + 
and  sarlong  <=  122.200  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  sarlat  >=  36.180  and  sarlat  <=  36.370  and  sarlong  >=  121.400  + 
and  sarlong  <=  122.250  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  sarlat  >=  36.370  and  sarlat  <=  36.480  and  sarlong  >=  121.400  + 
and  sarlong  <=  122.300  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  sarlat  >=  36.480  and  sarlat  <=  36.530  and  sarlong  >=  121.400  + 
and  sarlong  <=  122.350  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  sarlat  >=  36.530  and  sarlat  <=  36.570  and  sarlong  >=  121.400  + 
and  sarlong  <=  122.400  then 

set  var  inside  to  .inside  +  1 
break 
endif 
if  sarlat  >=  36.570  and  sarlat  <=  37.000  and  sarlong  >=  121.400  + 
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and  sarlong  <=  122.450  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  sarlat  >=  37.000  and  sarlat  <=  37.050  and  sarlong  >=  121.400  + 
and  sarlong  <=  122.450  then 

set  var  inside  to  .inside  +  1 
break 
endif 

if  sarlat  >=  37.050  and  sarlat  <=  37.100  and  sarlong  >=  121.400  + 
and  sarlong  <=  122.300  then 

set  var  inside  to  .inside  +  1 
break 
endif 

set  var  outside  to  .outside  +  1 
break 
endwhile 
next  #1  nl 
endwhile 

set  var  inpcttmp  real 
set  var  outpcttm  real 
set  var  inpct  real 
set  var  outpct  real 
set  var  totsars  real 
set  var  inside  real 
set  var  outside  real 

set  var  inpcttmp  to  .inside  /  .totsars 
set  var  outpcttm  to  .outside  /  .totsars 
set  var  inpct  to  .inpcttmp  x  100.0 
set  var  outpct  to  .outpcttm  x  100.0 
set  var  totsars  integer 
set  var  inside  integer 
set  var  outside  integer 
newpage 
define 
attributes 
tmp  text  2 
relations 
temp  with  tmp 
end 
load  temp 

"XX" 
end 
write  "Processing  report  information  has  been  completed."  at  3  1 

write  "Now  preparing  report "  at  4  1 

if  numrows  fails  or  numrows  =  0  then 
newpage 

write  "No  records  exist  in  the  database  matching  your  selection  + 
criteria"  at  10  1 

write  "Please  press  any  key  to  return  to  menu"  at  16  10 
pause 
else 

output  printer  with  sarsmbt.rpt 
newpage 
print  sarsmbt 
newpage 

output  terminal 
endif 

remove  temp 
remove  sarsum 
newpage 

clear  all  variables 
return 
*<  end  ) 


$ COMMAND 
SARTIMES 
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Program:  SAR  Case  Units  Time  Expended  Frequency 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:      This  program  performs  a  statistical  analysis 

of  SAR  cases  to  determine  total  time 
expended,  time  to  being  on  scene,  time  to 
being  alongside,  time  involved  in  searches, 
and  time  involved  in  towing.  These  times  are 
analyzed  to  produce  totals,  averages, 
minimums ,  and  maximums  for  a  specific  time 
period. 

Tables  Used:       sarunits 

Temp  Tables:       sartimel,  sartime2,  sartime3,  sartime4, 

sartime5,  temp 

Reports  Used:      sartimes 

Forms  Used:       none 

**************************************************** 

set  null  "  " 

set  error  messages  off 

set  messages  off 

set  escape  on 

newpage 

clear  all  variables 

write  "This  program  will  perform  statistical  reports  on"  at  3  1 

write  "SAR  cases  that  occurred  during  a  specified  time  period."  at  4  1 

write  "Total  sar  unit  time  expended,   time  to  on  scene c   time  "  at  5  1 

write  "to  alongside  distressed  vessel,   time  expended  in  searches,"  + 

at  6  1 

write  "and  time  engaged  in  towing  will  be  analyzed."  at  7  1 

write  "Since  this  program  can  take  5  to  10  minutes  to  run,  you  may"  + 

at  12  1 

write  "press  the  escape  [ESC]  key  to  exit  to  the  RBase  5000  command"  + 

at  13  1 

write  "prompt  where  can  either  restart  the  menu  system  by  typing:"  + 

at  14  1 

write  "  RUN  STARTUP.BIN"  at  16  1 

write  "or  exitting  the  system  by  typing:"  at  18  1 

write  "  EXIT*  at  20  1 

write  "Press  any  key  to  continue  "  at  23  10 

pause 
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set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  10  1 

fillin  strtdate  using  "  "  at  10  53 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  12  1 

fillin  enddate  using  "  "  at  12  53 

set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
remove  sartimel 
newpage 

project  sartimel  from  sarunits  using  uwtime  uwdate  ostime  osdate  + 
foldno  where  uwtime  exists  and  uwdate  exists  and  ostime  exists  and  + 
osdate  exists  and  uwdate  lea  osdate  and  uwdate  >=  .strtdate  and  + 
sutdate  <=  .enddate 

compute  ostimes  as  count  foldno  from  sartimel 
set  var  ossum  real 
set  var  timehour  real 
set  var  datehour  real 
set  var  test  real 
set  var  timeadd  real 
set  var  minostim  real 
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set  var  maxostim  real 

set  var  ossum  to  0.0 

set  var  minostim  to  1000.0 

set  var  maxostim  to  0.0 

write  "Now  computing  sar  time  statistics"  at  10  15 

set  pointer  #1  nl  for  sartimel 

while  nl  eq  0  then 

set  var  uwtime  to  uwtime  in  #1 
set  var  uwdate  to  uwdate  in  #1 
set  var  ostime  to  ostime  in  #1 
set  var  osdate  to  osdate  in  #1 
if  uwdate  =  .osdate  then 

set  var  timediff  to  .ostime  -  .uwtime 
set  var  timehour  to  .timediff  /  3600.0 
*(converts  seconds  to  hours) 
set  var  test  to  .timehour 
set  var  ossum  to  .ossum  +  .timehour 
else 

set  var  datediff  to  .osdate  -  .uwdate 
set  var  datehour  to  .datediff  x  24.0 
*( converts  days  to  hours) 
set  var  timediff  to  .ostime  -  .uwtime 
set  var  timehour  to  .timediff  /  3600.0 
*(converts  seconds  to  hours) 
set  var  timeadd  to  .timehour  +  .datehour 
set  var  test  to  .timeadd 
set  var  ossum  to  .ossum  +  .timeadd 
endif 
if  test  <=  .minostim  then 

set  var  minostim  to  .test 
endif 
if  test  >=  .maxostim  then 

set  var  maxostim  to  .test 
endif 

next  #1  nl 
endwhile 
remove  sartimel 
remove  sartime2 
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project  sartime2  from  sarunits  using  uwtime  uwdate  sutmoor  sutdate  + 
foldno  where  uwtime  exists  and  uwdate  exists  and  sutmoor  exists  and  + 
sutdate  exists  and  uwdate  lea  sutdate  and  uwdate  >=  .strtdate  and  + 
sutdate  <=  .enddate 

compute  tottimes  as  count  foldno  from  sartime2 
set  var  totsum  real 
set  var  mintttim  real 
set  var  maxtttim  real 
set  var  totsum  to  0.0 
set  var  mintttim  to  1000.0 
set  var  maxtttim  to  0.0 
set  pointer  #1  nl  for  sartime2 
while  nl  eq  0  then 

set  var  uwtime  to  uwtime  in  #1 
set  var  uwdate  to  uwdate  in  #1 
set  var  sutmoor  to  sutmoor  in  #1 
set  var  sutdate  to  sutdate  in  #1 
if  uwdate  =  .sutdate  then 

set  var  timediff  to  .sutmoor  -  .uwtime 
set  var  timehour  to  .timediff  /  3600.0 
^(converts  seconds  to  hours) 
set  var  test  to  .timehour 
set  var  totsum  to  .totsum  +  .timehour 
else 

set  var  datediff  to  .sutdate  -  .uwdate 

set  var  datehour  to  .datediff  x  24.0 

*(converts  days  to  hours) 

set  var  timediff  to  .sutmoor  -  .uwtime 

set  var  timehour  to  .timediff  /  3600.0 

^(converts  seconds  to  hours) 

set  var  timeadd  to  .timehour  +  .datehour 
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set  var  test  to  .timeadd 
set  var  totsum  to  .totsum  +  .timeadd 
endif 
if  test  <=  .mintttim  then 

set  var  mintttim  to  .test 
endif 
if  test  >=  .maxtttim  then 

set  var  maxtttim  to  .test 
endif 
next  #1  nl 
endwhile 
remove  sartime2 
remove  sartime3 
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project  sartime3  from  sarunits  using  uwtime  uwdate  alngtime  alngdate  + 
foldno  where  uwtime  exists  and  uwdate  exists  and  alngtime  exists  and  + 
alngdate  exists  and  uwdate  lea  alngdate  and  uwdate  >=  .strtdate  and  + 
sutaate  <=  .enddate 

compute  algtimes  as  count  foldno  from  sartime3 
set  var  algsum  real 
set  var  minaltim  real 
set  var  maxaltim  real 
set  var  algsum  to  0.0 
set  var  minaltim  to  1000.0 
set  var  maxaltim  to  0.0 
set  pointer  #1  nl  for  sartime3 
while  nl  eq  0  then 

set  var  uwtime  to  uwtime  in  #1 
set  var  uwdate  to  uwdate  in  #1 
set  var  algtime  to  alngtime  in  #1 
set  var  algdate  to  alngdate  in  #1 
if  uwdate  =  .algdate  then 

set  var  timediff  to  .algtime  -  .uwtime 
set  var  timehour  to  .timediff  /  3600.0 
^(converts  seconds  to  hours) 
set  var  test  to  .timehour 
set  var  algsum  to  .algsum  +  .timehour 
else 

set  var  datediff  to  .algdate  -  .uwdate 
set  var  datehour  to  .datediff  x  24.0 
*( converts  days  to  hours) 
set  var  timediff  to  .algtime  -  .uwtime 
set  var  timehour  to  .timediff  /  3600.0 
^(converts  seconds  to  hours) 
set  var  timeadd  to  .timehour  +  .datehour 
set  var  test  to  .timeadd 
set  var  algsum  to  .algsum  +  .timeadd 
endif 
if  test  <=  .minaltim  then 

set  var  minaltim  to  .test 
endif 
if  test  >=  .maxaltim  then 

set  var  maxaltim  to  .test 
endif 

next  #1  nl 
endwhile 
remove  sartime3 
remove  sartime4 
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project  sartime4  from  sarunits  using  ostime  osdate  alngtime  alngdate  + 
foldno  where  ostime  exists  and  osdate  exists  and  alngtime  exists  and  + 
alngdate  exists  and  osdate  lea  alngdate  and  uwdate  >=  .strtdate  and  + 
sutaate  <=  .enddate 

compute  schtimes  as  count  foldno  from  sartime4 
set  var  schsum  real 
set  var  minshtim  real 
set  var  maxshtim  real 
set  var  schsum  to  0.0 
set  var  minshtim  to  1000.0 
set  var  maxshtim  to  0.0 
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set  pointer  #1  nl  for  sartime4 
while  nl  eq  0  then 

set  var  ostime  to  ostime  in  #1 
set  var  osdate  to  osdate  in  #1 
set  var  algtime  to  alngtime  in  #1 
set  var  algdate  to  alngdate  in  #1 
if  osdate  =  .algdate  then 

set  var  timediff  to  .algtime  -  .ostime 
set  var  timehour  to  .timediff  /  3600.0 
^(converts  seconds  to  hours) 
set  var  test  to  .timehour 
set  var  schsum  to  .schsum  +  .timehour 
else 

set  var  datediff  to  .algdate  -  .osdate 
set  var  datehour  to  .datediff  x  24.0 
^(converts  days  to  hours) 
set  var  timediff  to  .algtime  -  .ostime 
set  var  timehour  to  .timediff  /  3600.0 
^(converts  seconds  to  hours) 
set  var  timeadd  to  .timehour  +  .datehour 
set  var  test  to  .timeadd 
set  var  schsum  to  .schsum  +  .timeadd 
endif 
if  test  <=  .minshtim  then 

set  var  minshtim  to  .test 
endif 
if  test  >=  .maxshtim  then 

set  var  maxshtim  to  .test 
endif 

next  #1  nl 
endwhile 
remove  sartime4 
remove  sartime5 
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project  sartime5  from  sarunits  using  towtime  towdate  dvmoored  dvmdate  + 
foldno  where  towtime  exists  and  towdate  exists  and  dvmoored  exists  + 
and  dvmdate  exists  and  towdate  lea  dvmdate  and  uwdate  >=  .strtdate  + 
and  sutdate  <=  .enddate 

compute  towtimes  as  count  foldno  from  sartime5 
set  var  towsum  real 
set  var  mintwtim  real 
set  var  maxtwtim  real 
set  var  towsum  to  0.0 
set  var  mintwtim  to  1000.0 
set  var  maxtwtim  to  0.0 
set  pointer  #1  nl  for  sartime5 
while  nl  eq  0  then 

set  var  towtime  to  towtime  in  #1 
set  var  towdate  to  towdate  in-  #1 
set  var  dvmtime  to  dvmoored  in  #1 
set  var  dvmdate  to  dvmdate  in  #1 
if  towdate  =  .dvmdate  then 

set  var  timediff  to  .dvmtime  -  .towtime 
set  var  timehour  to  .timediff  /  3600.0 
^(converts  seconds  to  hours) 
set  var  test  to  .timehour 
set  var  towsum  to  .towsum  +  .timehour 
else 

set  var  datediff  to  .dvmdate  -  .towdate 
set  var  datehour  to  .datediff  x  24.0 
^(converts  days  to  hours) 
set  var  timediff  to  .dvmtime  -  .towtime 
set  var  timehour  to  .timediff  /  3600.0 
^(converts  seconds  to  hours) 
set  var  timeadd  to  .timehour  +  .datehour 
set  var  test  to  .timeadd 
set  var  towsum  to  .towsum  +  .timeadd 
endif 

if  test  <=  .mintwtim  then 
set  var  mintwtim  to  .test 
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endif 

if  test  >=  .maxtwtim  then 
set  var  maxtwtim  to  .test 

endif 

next  #1  nl 
endwhile 
remove  sartime5 
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set  var  totavg  real 
set  var  oscavg  real 
set  var  algavg  real 
set  var  scnavg  real 
set  var  towavg  real 
set  var  totavg  to  .totsum  / 
set  var  oscavg  to  .ossum  / 
set  var  algavg  to  . algsum  /  . algtimes 
set  var  scnavg  to  .scnsum  /  . schtimes 
set  var  towavg  to  .towsum  / 
remove  temp 
define 
attributes 
tmp  text  2 
relations 
temp  with  tmp 
end 
load  temp 

"XX" 
end 


. tottimes 
. ostimes 


towtimes 


newpage 

write  "Now  preparing  report" 

output  printer  with  sartimes. 

newpage 

print  sartimes 

newpage 

output  screen 

remove  temp 

clear  all  variables 

set  escape  off 

return 

*(  end  ) 


at  10  15 
rpt 


$ COMMAND 

SARDAY 
*(********************************************************************** 


Program: 

Author: 

Date  Written: 

Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


SAR  Days ,  SAR  Months ,  SAR  Years  Frequency 
•  Analysis 
J  D  Allen  and  H  R  Lang 
August  1987 

This  program  performs  a  statistical  analysis 
of  SAR  cases  to  determine  percentage  of 
cases  which  occurred  on  specific  days  of  the 
week,  months  of  the  year  and  years  during  a 
specified  time  period, 
sar 

sarsuml,  sarstat,  sarsum,  temp 
sardates,  sardays 
none 


**************************************** 

set  null  "  " 

set  error  messages  off 

set  messages  off 

set  escape  on 

newpage 

clear  all  variables 
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remove  sarsuml 

write  "This  program  will  perform  a  statistical  report  on"  at  3  1 

write  "days  of  the  week,  months  of  the  year,   and  individual"  at  4  1 

write  "years  that  SAR  cases  have  occurred.    "  at  5  1 

write  "This  program  will  evaluate  statistics  starting  from  1980."  at  8  1 

write  "Please  indicate  how  many  years  of  data  you  wish  to  analyze."  + 

at  9  1 

set  var  numyears  integer 

set  var  numyears  to  999999 

set  error  messages  on 

while  numyears  <=  0  or  numyears  >  32  then 

^(system  will  only  do  stats  until  2012) 

fillin  numyears  using  "Number  of  years:  "  at  12  20 

if  numyears  <=  0  or  numyears  >  32  then 

write  "You  must  enter  a  number  between  1  and  32"  at  15  20 
write  "Please  reenter."  at  16  30 

endif 
endwhile 

set  var  strtdate  date 
set  var  enddate  date 
set  var  strtdate  to  01/01/1980 
set  var  count  integer 
set  var  count  to  1 
set  var  daysadd  integer 
set  var  daysadd  to  0 
while  count  <=  .numyears  then 

set  var  yrtestl  to  .numyears  /  4 

set  var  yrtest2  to  .yrtestl  x  4 

set  var  yrtest  to  .numyears  -  .yrtest2 

if  yrtest  =  0  then 

set  var  daysadd  to  .daysadd  +  366 

else 

set  var  daysadd  to  .daysadd  +  365 

endif 

set  var  count  to  .count  +  1 
endwhile 

set  var  enddate  to  .strtdate  +  .daysadd 
newpage 

set  error  messages  off 

write  "Since  this  program  can  take  5  to  10  minutes  to  run,   you  may"  + 
at  12  1 

write  "press  the  escape  [ESC]  key  to  exit  to  the  RBase  5000  command"  + 
at  13  1 

write  "prompt  where  can  either  restart  the  menu  system  by  typing:"  + 
at  14  1 

write  "  RUN  STARTUP.BIN"  at  16  1 

write  "or  exitting  the  system  by  typing:"  at  18  1 
write  "  EXITfl  at  20  1 

write  "Press  any  key  to  continue"  at.  23  10 
pause 
newpage 

project  sarsuml  from  sar  using  sarda'te  sarday  folderno  sorted  by  + 
sardate  where  sardate  >=  .strtdate  and  sardate  <=  .enddate 
compute  numrows  as  rows  from  sarsuml 
set  var  begndate  date 
set  var  stopdate  date 
set  var  begndate  to  01/01/1980 
set  var  stopdate  to  12/31/1980 
set  var  count  integer 
set  var  count  to  1 
set  var  saryear  integer 
set  var  saryear  to  1979 
remove  sarstat 
set  var  sarnum  integer 
define 
attributes 
saryear  integer 
sarnum  integer 
relations 
sarstat  with  saryear  sarnum 
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end 

while  count  <=  .numyears  then 

compute  numsars  as  count  sardate  from  sarsuml  where  + 

sardate  >=  .begndate  and  sardate  <=  .stopdate 

set  var  saryear  to  .saryear  +  1 

if  numsars  fails  then 
set  var  sarnum  to  0 

else 

set  var  sarnum  to  .numsars 

endif 

load  sarstat 

.saryear  .sarnum 

end 

set  var  yrtestl  to  .saryear  /  4 

set  var  yrtest2  to  .yrtestl  x  4 

set  var  yrtest  to  .saryear  -  .yrtest2 

if  yrtest  =  0  then 

set  var  begndate  to  .begndate  +  366 
set  var  stopdate  to  .stopdate  +  366 

else 

set  var  begndate  to  .begndate  +  365 
set  var  stopdate  to  .stopdate  +  365 

endif 

set  var  count  to  .count  +  1 
endwhile 

set  var  jansar  integer 
set  var  count  integer 
set  var  jandatel  date 
set  var  jandate2  date 
set  var  febsar  integer 
set  var  febdatel  date 
set  var  febdate2  date 
set  var  marsar  integer 
set  var  mardatel  date 
set  var  mardate2  date 
set  var  aprsar  integer 
set  var  aprdatel  date 
set  var  aprdate2  date 
set  var  maysar  integer 
set  var  maydatel  date 
set  var  maydate2  date 
set  var  junsar  integer 
set  var  ^undatel  date 
set  var  ^undate2  date 
set  var  julsar  integer 
set  var  ^uldatel  date 
set  var  juldate2  date 
set  var  augsar  integer 
set  var  augdatel  date  . 
set  var  augdate2  date 
set  var  sepsar  integer 
set  var  sepdatel  date 
set  var  sepdate2  date 
set  var  octsar  integer 
set  var  octdatel  date 
.set  var  octdate2  date 
set  var  novsar  integer 
set  var  novdatel  date 
set  var  novdate2  date 
set  var  decsar  integer 
set  var  decdatel  date 
set  var  decdate2  date 
set  var  jansar  to  0 
set  var  febsar  to  0 
set  var  marsar  to  0 
set  var  aprsar  to  0 
set  var  maysar  to  0 
set  var  junsar  to  0 
set  var  julsar  to  0 
set  var  augsar  to  0 
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set  var  sepsar  to  0 

set  var  octsar  to  0 

set  var  novsar  to  0 

set  var  decsar  to  0 

set  var  jandatel  to  01/01/1980 

set  var  iandate2  to  01/31/1980 

set  var  febdatel  to  02/01/1980 

set  var  febdate2  to  02/28/1980 

set  var  mardatel  to  03/01/1980 

set  var  mardate2  to  03/31/1980 

set  var  aprdatel  to  04/01/1980 

set  var  aprdate2  to  04/30/1980 

set  var  mavdatel  to  05/01/1980 

set  var  maydate2  to  05/31/1980 

set  var  jundatel  to  06/01/1980 

set  var  iundate2  to  06/30/1980 

set  var  nuldatel  to  07/01/1980 

set  var  ]uldate2  to  07/31/1980 

set  var  augdatel  to  08/01/1980 

set  var  augdate2  to  08/31/1980 

set  var  sepdatel  to  09/01/1980 

set  var  sepdate2  to  09/30/1980 

set  var  octdatel  to  10/01/1980 

set  var  octdate2  to  10/31/1980 

set  var  novdatel  to  11/01/1980 

set  var  novdate2  to  11/30/1980 

set  var  decdatel  to  12/01/1980 

set  var  decdate2  to  12/31/1980 

set  var  count  to  1 

newpage 

write  "Now  performing  statistical  analysis"  at  10  10 

while  count  <=  .numyears  then 

compute  janrows  as  count  sardate  from  sarsuml  where  + 

sardate  >=  .jandatel  and  sardate  <=  .jandate2 

if  janrows  exists  then 

set  var  jansar  to  .jansar  +  .janrows 

endif 

compute  febrows*  as  count  sardate  from  sarsuml  where  + 

sardate  >=  .febdatel  and  sardate  <=  .febdate2 

if  febrows  exists  then 

set  var  febsar  to  .febsar  +  .febrows 

endif 

compute  marrows  as  count  sardate  from  sarsuml  where  + 

sardate  >=  .mardatel  and  sardate  <=  .mardate2 

if  marrows  exists  then 

set  var  marsar  to  .marsar  +  .marrows 

endif 

compute  aprrows  as  count  sardate  from  sarsuml  where  + 

sardate  >=  .aordatel  and  sardate  <=  .aprdate2 

if  aprrows  exists  then 

set  var  aprsar  to  .aprsar  +  .aprrows 

endif 

compute  mayrows  as  count  sardate  from  sarsuml  where  + 

sardate  >=  .maydatel  and  sardate  <=  .maydate2 

if  mayrows  exists  then 

set  var  maysar  to  .maysar  +  .mayrows 

endif 

compute  junrows  as  count  sardate  from  sarsuml  where  + 

sardate  >=  .jundatel  and  sardate  <=  .jundate2 

if  junrows  exists  then 

set  var  junsar  to  .junsar  +  .junrows 

endif 

compute  julrows  as  count  sardate  from  sarsuml  where  + 

sardate  >=  .juldatel  and  sardate  <=  .juldate2 

if  julrows  exists  then 

set  var  julsar  to  .julsar  +  .julrows 

endif 

compute  augrows  as  count  sardate  from  sarsuml  where  + 

sardate  >=  .augdatel  and  sardate  <=  .augdate2 

if  augrows  exists  then 
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set  var  augsar  to  .augsar  +  .augrows 
endif 

compute  seprows  as  count  sardate  from  sarsuml  where  + 
sardate  >=  .sepdatel  and  sardate  <=  .sepdate2 
if  seprows  exists  then 

set  var  sepsar  to  .sepsar  +  .seprows 
endif 

compute  octrows  as  count  sardate  from  sarsuml  where  + 
sardate  >=  .octdatel  and  sardate  <=  .octdate2 
if  octrows  exists  then 

set  var  octsar  to  .octsar  +  .octrows 
endif 

compute  novrows  as  count  sardate  from  sarsuml  where  + 
sardate  >=  .novdatel  and  sardate  <=  .novdate2 
if  novrows  exists  then 

set  var  novsar  to  .novsar  +  .novrows 
endif 

compute  decrows  as  count  sardate  from  sarsuml  where  + 
sardate  >=  .decdatel  and  sardate  <=  .decdate2 
if  decrows  exists  then 

set  var  decsar  to  .decsar  +  .decrows 
endif 

set  var  yrtestl  to  .saryear  /  4 
set  var  yrtest2  to  .yrtestl  x  4 
set  var  yrtest  to  .saryear  -  .yrtest2 
if  yrtest  =  0  then 

set  var  jandatel  to  .jandatel  +  366 

set  var  jandate2  to  .jandate2  +  366 

set  var  febdatel  to  .febdatel  +  366 

set  var  febdate2  to  .febdate2  +  366 

set  var  mardatel  to  .mardatel  +  366 

set  var  mardate2  to  .mardate2  +  366 

set  var  aprdatel  to  .aprdatel  +  366 

set  var  aprdate2  to  .aprdate2  +  366 

set  var  maydatel  to  .maydatel  +  366 
>  set  var  maydate2  to  .maydate2  +  366 

set  var  jundatel  to  .jundatel  +  366 

set  var  }undate2  to  . jundate2  +  366 

set  var  ^uldatel  to  .^uldatel  +  366 

set  var  juldate2  to  . juldate2  +  366 

set  var  augdatel  to  .augdatel  +  366 

set  var  augdate2  to  .augdate2  +  366 

set  var  sepdatel  to  .sepdatel  +  366 

set  var  sepdate2  to  . sepdate2  +  366 

set  var  octdatel  to  .octdatel  +  366 

set  var  octdate2  to  .octdate2  +  366 

set  var  novdatel  to  .novdatel  +  366 

set  var  novdate2  to  .novdate2  +  366 

set  var  decdatel  to  .decdatel  +  366 

set  var  decdate2  to  .decdate2  +  366 
else 

set  var  jandatel  to  .jandatel  +  365 

set  var  iandate2  to  .nandate2  +  365 

set  var  febdatel  to  .febdatel  +  365 

set  var  febdate2  to  .febdate2  +  365 

set  var  mardatel  to  .mardatel  +  365 

set  var  mardate2  to  .mardate2  +  365 

set  var  aprdatel  to  .aprdatel  +  365 

set  var  aprdate2  to  .aprdate2  +  365 

set  var  maydatel  to  .maydatel  +  365 

set  var  maydate2  to  .maydate2  +  365 

set  var  jundatel  to  .jundatel  +  365 

set  var  qundate2  to  .^undate2  +  365 

set  var  ^uldatel  to  .^uldatel  +  365 

set  var  juldate2  to  . juldate2  +  365 

set  var  augdatel  to  .augdatel  +  365 

set  var  augdate2  to  .augdate2  +  365 

set  var  sepdatel  to  .sepdatel  +  365 

set  var  sepdate2  to  . sepdate2  +  365 

set  var  octdatel  to  .octdatel  +  365 
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set  var  octdate2  to  .octdate2  +  365 
set  var  novdatel  to  .novdatel  +  365 
set  var  novdate2  to  .novdate2  +  365 
set  var  decdatel  to  .decdatel  +  365 
set  var  decdate2  to  .decdate2  +  365 

endif 

set  var  count  to  .count  +  1 
endwhile 
newpage 

compute  totsars  as  rows  from  sarsuml 
set  var  pctjan  real 
set  var  pctfeb  real 
set  var  pctmar  real 
set  var  pctapr  real 
set  var  pctmay  real 
set  var  pctjun  real 
set  var  pctjul  real 
set  var  pctaug  real 
set  var  pctsep  real 
set  var  pctoct  real 
set  var  pctnov  real 
set  var  pctdec  real 

*( calculating  percentages  based  on  total  SAR  cases) 
set  var  pctjan  to  .jansar  /  .totsars 
set  var  pctfeb  to  . rebsar  /  .totsars 
set  var  pctmar  to  .marsar  /  .totsars 
set  var  pctapr  to  .aprsar  /  .totsars 
set  var  pctmay  to  .maysar  /  .totsars 
set  var  pctjun  to  . junsar  /  .totsars 
set  var  pctjul  to  .pulsar  /  .totsars 
set  var  pctaug  to  .augsar  /  .totsars 
set  var  pctsep  to  . sepsar  /  .totsars 
set  var  pctoct  to  .octsar  /  .totsars 
set  var  pctnov  to  .novsar  /  .totsars 
set  var  pctdec  to  .decsar  /  .totsars 
newpage 

write  "Preparing  report...." 
if  numrows  fails  or  numrows  =  0  then 

newpage 

write  "No  records  exist  in  the  database  matching  your  selection  + 
criteria"  at  10  1 

write  "Please  press  any  key  to  continue"  at  16  10 

pause 
else 

output  printer  with  sardates.rpt 

newpage 

print  sardates 

output  screen 
endif 

remove  sarsum 
remove  sarstat 
newpage 
clear  numrows 

project  sarsum  from  sar  using  folderno  sarday  sardate  where  + 
sarday  exists  and  sardate  exists 
compute  numrows  as  rows  from  sarsum 

compute  monday  as  count  sarday  from  sarsum  where  sarday  eq  mon 
compute  tuesday  as  count  sarday  from  sarsum  where  sarday  eq  tue 
compute  wedsday  as  count  sarday  from  sarsum  where  sarday  eq  wed 
compute  thursday  as  count  sarday  from  sarsum  where  sarday  eg  thu 
compute  friday  as  count  sarday  from  sarsum  where  sarday  eq  rri 
compute  Saturday  as  count  sarday  from  sarsum  where  sarday  eq  sat 
compute  Sunday  as  count  sarday  from  sarsum  where  sarday  eq  sun 
compute  totdays  as  count  sarday  from  sarsum  where  sarday  exists 
set  var  pctmon  real 
set  var  pcttue  real 
set  var  pctwed  real 
set  var  pctthu  real 
set  var  pctfri  real 
set  var  pctsat  real 
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set  var  pctsun  real 

set  var  pctmon  to  .monday  /  .totdays 

set  var  pcttue  to  .tuesday  /  .totdays 

set  var  pctwed  to  .wedsday  /  .totdays 

set  var  pctthu  to  . thursday  /  .totdays 

set  var  pctfri  to  . friday  /  .totdays 

set  var  pctsat  to  .Saturday  /  .totdays 

set  var  pctsun  to  . sunday  /  .totdays 

write  "Processing  of  statistical  information  completed."  at  10  1 

write  "Now  preparing  report "  at  11  1 

remove  temp 

define 

attributes 

tmp  text  2 

relations 

temp  with  tmp 

end 

load  temp 

"XX" 
end 
if  numrows  fails  or  numrows  =  0  then 

newpage 

write  "No  records  exist  in  the  database  matching  your  selection  + 
criteria"  at  10  1 

write  "Please  press  any  key  to  return  to  menu"  at  16  10 

pause 
else 

output  printer  with  sardays.rpt 

newpage 

print  sardays 

newpage 

output  screen 
endif 

clear  all  variables 
remove  temp 
remove  sarstat 
newpage 

set  escape  off 
return 
*(  end  ) 


$ COMMAND 
DAYNIGHT 

Program:  Daytime  vs.  Nighttime  Frequency  Analysis 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:      This  program  performs  a  statistical  analysis 

of  SAR  cases  and  Boardings  to  determine 
percentage  of  cases  which  occur  in  the 
daytime  vs  those  that  occur  at  night  during 
a  specified  time  period. 

Tables  Used:      sar,  boarding 

Temp  Tables:       sarsum,  bosum,  temp 

Reports  Used:      daynight 

Forms  Used:       none 

***************************************************** 

set  null  "  " 

set  escape  on 

set  messages  off 

set  error  messages  off 

clear  all  variables 

remove  sarsum 

newpage 
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write  "This  program  performs  a  statistical  analysis  of  Search  &"  at  2  1 

write  "Rescue  cases  and  Boardings  to  determine  the  percentage  of  "  + 

at  3  1 

write  "cases  which  occurred  during  the  day  and  at  night  during  a  "  + 

at  4  1 

write  "specified  time  period.  "  at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 

fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 

fillin  enddate  using  "  "  at  10  51 

set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 

project  sarsum  trom  sar  using  ssunrise  ssunset  sartime  sardate  where  + 
sardate  >=  .strtdate  and  sardate  <=  .enddate  and  ssunrise  exists  and  + 
sartime  exists 

compute  numrows  as  rows  from  sarsum 

compute  daysar  as  count  sartime  from  sarsum  where  sartime  gea  + 
ssunrise  and  sartime  lta  ssunset 

compute  nitesar  as  count  sartime  from  sarsum  where  sartime  lta  + 
ssunrise  or  sartime  gea  ssunset 
set  var  totsars  to  .daysar  +  .nitesar 
set  var  pctdays  real 
set  var  pctnites  real 
set  var  pctdays  to  .daysar  /  .totsars 
set  var  pctnites  to  .nitesar  /  .totsars 
set  var  pctdays  to  .pctdays  x  100.0 
set  var  pctnites  to  .pctnites  x  100.0 
remove  sarsum 
remove  bosum 
newpage 

Eroject  bosum  from  boarding  using  bsunset  bsunrise  botime  bodate  where  + 
odate  >=  .strtdate  and  bodate  <=  .enddate  and  bsunrise  exists  and  + 
botime  exists 

compute  numrowsl  as  rows  from  bosum 

compute  daybrd  as  count  botime  from  bosum  where  botime  gea  bsunrise  + 
and  botime  lta  bsunset 

compute  nitebrd  as  count  botime  from  bosum  where  botime  lta  bsunrise  + 
or  botime  gea  bsunset 
set  var  totbrds  to  .daybrd  +  .nitebrd 
set  var  pctdayb  real 
set  var  pctniteb  real 
set  var  pctdayb  to  .daybrd  /  .totbrds 
set  var  pctniteb  to  .nitebrd  /  .totbrds 
set  var  pctdayb  to  .pctdayb  x  100.0 
set  var  pctniteb  to  .pctniteb  x  100.0 
remove  bosum 
remove  temp 
newpage 
define 
attributes 
tmD  text  2 
relations 
temp  with  tmp 
end 
load  temp 

"XX" 
end 
newpage 

write  "Preparing  report " 

if  numrows  fails  or  numrows  =  0  then 

if  numrowsl  fails  or  numrowsl  =  0  then 

newpage 

write  "No  records  exist  matching  your  selection  criteria"  + 

at  10  1 
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write  "Please  press  any  key  to  return  to  menu"  at  16  10 
pause 
else 

output  printer  with  daynight.rpt 
newpage 

print  daynight 
newpage 
output  screen 
endif 
else 

output  printer 
newpage 

print  daynight 
newpage 
output  screen 
endif 

remove  sarsum 
remove  bosum 
remove  temp 
newpage 
return 
*(  end  ) 


$ COMMAND 
SARDUMP 


Program:  SAR  Summary  Listing  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:      This  program  performs  a  dump  of  the  table  SAR 

of  those  SAR  cases  that  occurred  during  a 
specified  time  period.  The  listing  is  sorted 
by  date  prior  to  being  printed. 

Tables  Used:      sar 

Temp  Tables:       sarsum 

Reports  Used:      sar 

Forms  Used:       none 

********************************************************* 

set  null  "  " 

set  escape  on 

set  messages  off 

set  error  messages  off 

newpage 

clear  all  variables 

write  "This  program  will  dump  all  information  on  SAR  cases  "  at  3  1 

write  "which  are  selected  based  on  SAR  date.  If  you  wish  to  print"  + 

at  4  1 

write  "out  the  entire  database  of  SAR  cases,  please  enter  the  date  "  + 

at  5  1 

write  "[01/01/1900]  for  the  starting  date  and  todays  date  for  the  "  +• 

at  5  1 

write  "ending  date "  + 

at  7  1 

set  var  strtdate  date 
set  var  enddate  date 
set  var  datediff  to  0 
set  error  messages  on 
while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  9  1 

fillin  strtdate  using  "  "  at  9  53 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  11  1 

fillin  enddate  using  "  "  at  11  53 

set  var  datediff  to  .enddate  -  .strtdate 
endwhile 
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set  error  messages  off 

remove  sarsum 

newpage 

project  sarsum  from  sar  using  all  sorted  by  sardate  where  + 

sardate  >=  .strtdate  and  sardate  <=  .enddate 

compute  numrows  as  rows  from  sarsum 

newpage 

write  "Now  preparing  report "  at  11  1 

if  numrows  fails  or  numrows  =  0  then 

newpage 

write  "No  records  exist  matching  your  selection  criteria' 

at  10  1 

write  "Please  press  any  key  to  return  to  menu"  at  16  10 

pause 
else 

output  printer  with- sar. rpt 

newpage 

print  sar 

newpage 

output  screen 
endif 

remove  sarsum 
newpage 

clear  all  variables 
return 
*(  end  ) 


$ COMMAND 
IMMEDSAR 

Program:  Immediate  SAR  Frequency  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:     August  1987 

Description:      This  program  performs  a  statistical  analysis 

of  SAR  cases  to  determine  percentage  of  cases 
which  are  of  immediate  nature  during  a 
specified  time  period. 

Tables  Used:       sar 

Temp  Tables:       sarsum,  temp 

Reports  Used:      immedsar 

Forms  Used:       none 

set  null  "  " 

set  escape  on 

set  messages  off 

set  error  messages  off 

clear  all  variables 

remove  sarsum 

newpage 

write  "This  program  performs  a  statistical  analysis  of  Search  &"  at  2  1 

write  "Rescue  cases  to  determine  the  percentage  of  cases  which  "  at  3  1 

write  "are  considered  to  be  of  an  immediate  nature  or  of  "  at  4  1 

write  "immediate  peril  to  the  vessel  during  a  specified  time  period"  + 

at  5  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 

fillin  strtdate  using  "  "  at  8  51 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 

fillin  enddate  using  "  "  at  10  51 

set  var  datediff  to  .enddate  -  .strtdate 
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endwhile 

set  error  messages  off 

remove  sarsum 

newpage 

project  sarsum  from  sar  using  folderno  immedsar  sardate  where  sardate  + 

>=  .strtdate  and  sardate  <=  .enddate 

compute  numrows  as  rows  from  sarsum 

compute  totsars  as  count  folderno  from  sarsum  where  folderno  exists 

compute  totimmed  as  count  immedsar  from  sarsum  where  immedsar  =  Y 

set  var  pctimmed  real 

set  var  pctnotim  real 

set  var  pctimmed  to  .totimmed  /  .totsars 

set  var  notimmed  to  .totsars  -  .totimmed 

set  var  pctnotim  to  .notimmed  /  .totsars 

remove  temp 

*( defining  temporary  relation  for  printing) 

define 

attributes 

tmp  text  2 

relations 

temp  with  tmp 

end 

*( loading  temporary  relation  with  data) 

load  temp 

"XX11 
end 
newpage 

write  "Now  preparing  Immediate  SAR  case  report "  at  10  1 

if  numrows  fails  or  numrows  =  0  then 

newpage 

write  "No  records  exist  matching  your  selection  criteria"  + 

at  10  1 

write  "Please  press  any  key  to  return  to  menu"  at  16  10 

pause 
else 

output  printer  with  immedsar. rpt 

newpage 

print  immedsar 

output  screen 
endif 

remove  sarsum 
remove  temp 
newpage 

clear  all  variables 
return 
*(  end  ) 
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APPENDIX  M 
VSLRPTS  SOURCE  CODE 

$ COMMAND 

VSL  MAIN 

* / ********************************************************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

VESSEL  REPORTS  MENU  and  APPLICATION  PROGRAMS 

Author:  Jon  D.  Allen,  LT,  USCG 
Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

set  error  messages  off 

set  messages  off 

set  escape  off 

clear  all  variables 

newpage 

set  var  pick8  integer 

choose  pick8  from  vsl_menu  in  vslrpts.apx 

if  picks  eq  0  then 

guit  to  restvsl.cmd 
endif 
if  pick8  eg  1  then 

run  VESSEL  in  vslrpts.apx 

guit  to  restvsl.cmd 
endif 
if  pick8  eq  2  then 

run  VSLOWNER  in  vslrpts.apx 

guit  to  restvsl.cmd 
endif 
if  pick8  eq  3  then 

run  VSLOPER  in  vslrpts.apx 

guit  to  restvsl.cmd 
endif 
if  pick8  eq  4  then 

guit  to  restrpts.cmd 
endif 

quit  to  restvsl.cmd 
return 
$menu 
vsl_menu 

column  SARELTIS  ---  VESSEL  REPORTS 
VESSEL  SUMMARY  LISTING 

VESSEL  ---  OWNERS  OF  SPECIFIED  VESSELS 
VEESEL  ---  OPERATORS  OF  SPECIFIED  VESSELS 
RETURN  TO  REPORTS  MENU 
*(  end  ) 


$COMMAND 

VESSEL 

* ( ************************************** 

Program:  Vessel  Summary  Listing  Program 
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Author:  J  D  Allen  and  H  R  Lang 

Date  Written:     August  1987 

Description:      This  program  performs  a  dump  of  the  VESSEL 

table.  Listing  entries  are  selected  by 
vessel  type,  vessel  use,  and  by  an 
alphabetic  search. 

Tables  Used:       vessel,  boattype,  boatuse 

Temp  Tables:       vslsum,  vslsuml,  vslsum2 

Reports  Used:      vessel 

Forms  Used:       none 

set  null  "  " 
set  error  messages  off 
set  messages  off 
set  escape  on 
newpage 

clear  all  variables 

write  "This  program  will  dump  all  information  on  vessels  " 
write  "which  are  selected  based  on  an  alphabetic  search,  vessel  " 
write  "type  search,   and  a  vessel  use  search.  " 

write  "The  following  is  a  list  a  legal  codes  for  vessel  type  (they  " 
write  "can  be  modified  by  changing/ adding  codes  to  the  BOATTYPE  table):" 
write  "  " 

select  all  from  boattype  sorted  by  vtype 
set  var  legaltyp  text 
set  var  typchoic  text 
set  var  legaltyp  to  no 
while  legaltyp  eq  no  then 
set  error  messages  on 

fillin  typchoic  using  "Please  enter  in  vessel  type  or  [XX]  for  all  + 
types:  " 

set  error  messages  off 
if  typchoice  eq  XX  then 
set  var  anytype  to  yes 
set  var  legaltyp  to  yes 
break 
else 

set  var  anytype  to  no 
endif 

set  pointer  #1  nl  for  boattype 
while  nl  eq  0  then 

set  var  typetest  to  vtype  in  #1 
if  typchoic  eq  .typetest  then 
set  var  legaltyp  to  yes 
break 
endif 

next  #1  nl 
endwhile 
endwhile 
newpage 

set  var  usechoic  text 
set  var  legaluse  to  no 

write  "The  following  is  a  list  of  legal  codes  for  vessel  uses.  These  " 
write  "be  modified  by  adding/ changing  the  values  in  the  BOATUSE  table." 
write  "   " 

select  all  from  boatuse  sorted  by  vuse. 
set  var  legaluse  text 
set  var  usechoic  text 
set  var  legaluse  to  no 
while  legaluse  eq  no  then 
set  error  messages  on 

fillin  usechoic  using  "Please  enter  vessel  use  or  XX  for  all  types:  " 
set  error  messages  off 
if  usechoic  eq  XX  then 

set  var  legaluse  to  yes 
set  var  anyuse  to  yes 
break 
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else 

set  var  anyuse  to  no 
endif 

set  pointer  #1  nl  for  boatuse 
while  nl  eq  0  then 

set  var  usetest  to  vuse  in  #1 
if  usechoic  eq  .usetest  then 
set  var  legaluse  to  yes 
break 
endif 

next  #1  nl 
endwhile 
endwhile 
newpage 

write  "Finally,   you  will  be  asked  to  enter  a  single  letter  for  both  + 
the" 


start  and  the  end  of  an  alphabetic  grouping.   For  example,   if  " 
you  enter  an  [el  for  the  start  and  an  [l]  for  the  end,   the  " 
program  will  only  list  those  vessels  whose  names  begin  with  the" 
letters  [e]  through  [i]  inclusively.  To  select  the  entire  + 

database,  please  enter  [a]  and  [z]  in  their  corresponding  + 


write 

write 

write 

write 

vessel 

write 

fields 

set  var  strtltr  text 

set  var  endltr  text 

set  var  ltrdiff  to  0 

set  error  messages  on 

while  ltrdiff  =  0  then 

fillin  strtltr  using  "Please  enter  starting  letter:   "  at  14  1 

fillin  endltr  using  "Please  enter  ending  letter:    "  at  16  1 

if  endltr  It  .strtltr  then 
set  var  ltrdiff  to  0 

else 
break 

endif 
endwhile 

set  error  messages  off 
newpage 

write  "You  now  have  the  option  to  select  how  you  would  like  the  + 
report"  at  3  1 

write  "to  appear.   It  can  be  sorted  by  vessel  name,   vessel  HIN,   " 
at  4  1 

write  "vessel  type,  or  vessel  use."  at  5  1 
set  var  choice  text 
set  var  legalch  to  no 
while  legalch  eq  no  then 

write  "1   Sorted  by  vessel  name"  at  8  1 

write  "2   Sorted  by  vessel  HIN"  at  9  1 

write  "3   Sorted  by  vessel  type"  at  10  1 

write  "4   Sorted  by  vessel  use"  at  11  1 

set  error  messages  on 

fillin  choice  using  "Please  enter  your  choice-.   "  at  13  1 

set  error  messages  off 

if  choice  eg  1  or  choice  eq  2  or  choice  eq  3  or  choice  eq  4  then 
set  var  legalch  to  yes 
break 

else 

set  var  legalch  to  no 

endif 
endwhile 
remove  vslsuml 
remove  vslsum2 
remove  vslsum 

^(produces  vessel  listing  sorted  by  vessel  name) 
if  choice  eq  1  then 

project  vslsuml  from  vessel  using  all  sorted  by  vslname  where  + 

vslname  ge  .strtltr  and  vslname  le  .endltr 

if  anytype  eq  yes  then 

project  vslsum2  from  vslsuml  using  all 

else 
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project  vslsum2  from  vslsuml  using  all  where  vsltype  eq  .typchoic 
endif 
if  anyuse  eq  yes  then 

project  vslsum  from  vslsum2  using  all 
else 

project  vslsum  from  vslsum2  using  all  where  vsluse  eq  .usechoic 
endif 
endif 

^(produces  vessel  listing  sorted  by  vessel  HIM) 
if  choice  eq  2  then 

project  vslsuml  from  vessel  using  all  sorted  by  vslhin  where  + 
vslname  ge  .strtltr  and  vslname  le  .endltr 
if  anytype  eq  yes  then 

project  vslsum2  from  vslsuml  using  all 
else 

project  vslsum2  from  vslsuml  using  all  where  vsltype  eq  .typchoic 
endif 
if  anyuse  eq  yes  then 

project  vslsum  from  vslsum2  using  all 
else 

project  vslsum  from  vslsum2  using  all  where  vsluse  eq  .usechoic 
endif 
endif 

^(produces  vessel  listing  sorted  by  vessel  type) 
if  choice  eq  3  then 

project  vslsuml  from  vessel  using  all  where  vslname  ge  .strtltr  and  + 

vslname  le  .endltr 

if  anytype  eq  yes  then 

project  vslsum2  from  vslsuml  using  all  sorted  by  vsltype 
else 

project  vslsum2  from  vslsuml  using  all  sorted  by  vsltype  where  + 
vsltype  eq  .typchoice 
endif 
if  anyuse  eq  yes  then 

project  vslsum  from  vslsum2  using  all 
else 

project  vslsum  from  vslsum2  using  all  where  vsluse  eq  .usechoic 
endif 
endif 

*(produces  vessel' listing  sorted  by  vessel  use) 
if  choice  eq  4  then 

project  vslsuml  from  vessel  using  all  where  vslname  ge' .strtltr  and  + 

vslname  le  .endltr 

if  anytype  eq  yes  then 

project  vslsum2  from  vslsuml  using  all 
else 

project  vslsum2  from  vslsuml  using  all  where  vsltype  eq  .typchoic 
endif 
if  anyuse  eq  yes  then 

project  vslsum  from  vslsum2  using  all  sorted  by  vsluse 
else 

project  vslsum  from  vslsum2  using  all  sorted  by  vsluse  where  + 
vsluse  eq  .usechoic 
endif 
endif 

compute  numrows  as  rows  from  vslsum 
if  numrows  fails  or  numrows  =  0  then 

write  "No  records  match  selection  criteria"  at  10  10 
write  "Please  press  any  key  to  continue"  at  16  10 
pause 
else 

output  printer  with  vessel. rpt 
newpage 
print  vessel 
output  screen 
endif 

remove  vslsum 
remove  vslsuml 
remove  vslsum2 
newpage 
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clear  all  variables 

return 

*(  end  ) 


$ COMMAND 
VSLOWNER 

Program:  Vessel  -  Owner  Dump  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:      This  program  performs  a  listing  sorted  by 

vessel  name  of  those  vessels  which  are 
owned  by  a  specified  group  of  owners.   All 
of  the  vessels  in  the  VESSEL  table  may  be 
selected  or  only  a  group  specified  in  an 
alphabetic  search. 

Tables  Used:       owvsl,  owners,  vessel 

Temp  Tables:       ownvsls,  ownvslsl,  ownvsls2 

Reports  Used:      vslowner 

Forms  Used:       none 

set  null  "  " 

set  error  messages  off 

set  messages  off 

set  escape  on 

newpage 

clear  all  variables 

write  "This  program  will  prepare  a  listing  of  owners  which"  at  3  1 

write  "own  by  a  specified  group  of  vessels.  This  report  can"  at  4  1 

write  "provide  a  listing  of  all  owners  and  their  vessels  by"  at  5  1 

write  "responding  [y]  to  the  following  question "  at  b  1 

write  "Do  you  wish  a  complete  listing  or  all  owners  and  their"  at  9  1 

write  "vessels  contained  in  the  system?"  at  10  1 

set  var  allrecs  text 

set  error  messages  on 

fillin  allrecs  using  "  "  at  10  40 

set  error  messages  off 

remove  ownvsls 

remove  ownvslsl 

remove  ownvsls2 

newpage 

if  allrecs  contains  "y"  then 

join  owners  using  ownid  with  owvsl  using  idowner  forming  ownvslsl 
join  ownvslsl  using  vhinown  with  vessel  using  vslhin  forming  + 
ownvsls2 

project  ownvsls  from  ownvsls2  using  ownlname  ownfname  ownmi  owndob  + 
ownaddr  owncity  ownstate  ownzip  owntelno  vslname  vslhin  sorted  by  + 
vslname 
else 

newpage 

set  var  strtltr  text 
set  var  endltr  text 
set  var  ltrdiff  to  0 
set  error  messages  on 
while  ltrdiff  =  0  then 

write  "Enter  starting  letter(s)  to  start  search:"  at  5  1 

fillin  strtltr  using  "  "  at  5  45 

write  "Enter  ending  letter(s)  to  end  search:"  at  7  1 

fillin  endltr  using  "  "  at  7  45 

if  endltr  It  .strtltr  then 

set  var  ltrdiff  to  0 
else 

break 
endif 
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endwhile 

set  error  messages  off 

join  owners  using  ownid  with  owvsl  using  idowner  forming  ownvslsl 

join  ownvslsl  using  vhinown  with  vessel  using  vslhin  forming  + 

ownvsls2 

project  ownvsls  from  ownvsls2  using  ownlname  ownfname  ownmi  owndob  + 

ownaddr  owncity  ownstate  ownzip  owntelno  vslname  vslhin  sorted  by  + 

vslname  where  vslname  ge  . strtltr  and  vslname  le  .endltr 
endif 

remove  ownvslsl 
remove  ownvsls2 
newpage 

compute  numrows  as  rows  from  ownvsls 
if  numrows  fails  or  numrows  =  0  then 

write  "No  records  match  selection  criteria"  at  10  10 

write  "Please  press  any  key  to  continue"  at  16  10 

pause 
else 

output  printer  with  vslowner.rpt 

newpage 

print  vslowner 

output  screen 
endif 

remove  ownvsls 
newpage 

clear  all  variables 
return 
*(  end  ) 


$ COMMAND 
VSLOPER 

* ( x*******************************^ 

Program:  Vessel  -  Operator  Dump  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:      This  program  performs  a  listing  sorted  by 

vessel  name  of  those  vessels  which  are 
operated  by  a  specified  group  of  operators. 
The  entire  list  of  vessels  may  be  printed 
or  a  specified  group  based  on  an  alphabetic 
search. 

Tables  Used:       opvsl,  operator,  vessel 

Temp  Tables:       opervsls,  opvslsl,  opvsls2 

Reports  Used:      vsloper 

Forms  Used:       none 

set  null  "  " 

set  error  messages  off 

set  messages  off 

set  escape  on 

newpage 

clear  all  variables 

write  "This  program  will  prepare  a  listing  of  operators  which"  at  3  1 

write  "operate  a  specified  group  of  vessels.  This  report  can"  at  4  1 

write  "provide  a  listing  of  all  operators  and  their  vessels  by"  at  5  1 

write  "responding  [y]  to  the  following  question "  at  6  1 

write  "Do  you  wish  a  complete  listing  or  all  operators  and  their"  + 

at  9  1 

write  "vessels  contained  in  the  system?"  at  10  1 

set  var  allrecs  text 

set  error  messages  on 

fillin  allrecs  using  "  "  at  10  40 

set  error  messages  off 

remove  opervsls 
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remove  opvslsl 

remove  opvsls2 

newpage 

if  allrecs  contains  "y"  then 

join  operator  using  opid  with  opvsl  using  idoper  forming  opvslsl 

join  opvslsl  using  vhinoper  with  vessel  using  vslhin  forming  opvsls2 

project  opervsls  from  opvsls2  using  oplname  opfname  opmi  opdob  + 

opaddr  opcity  opstate  opzip  optelno  vslname  vslhin  sorted  by  vslname 
else 

newpage 

set  var  strtltr  text 

set  var  endltr  text 

set  var  ltrdiff  to  0 

set  error  messages  on 

while  ltrdiff  =  0  then 

write  "Enter  starting  letter(s)  to  start  search:"  at  5  1 

fillin  strtltr  using  "  "  at  5  45 

write  "Enter  ending  letter(s)  to  end  search:"  at  7  1 

fillin  endltr  using  "  "  at  7  45 

if  endltr  It  .strtltr  then 

set  var  ltrdiff  to  0 
else 

break 
-  endif 

endwhile 

set  error  messages  off 

join  operator  using  opid  with  opvsl  using  idoper  forming  opvslsl 

join  opvslsl  using  vhinoper  with  vessel  using  vslhin  forming  opvsls2 

project  opervsls  From  opvsls2  using  oplname  opfname  opmi  opdob  + 

opaddr  opcity  opzip  opstate  optelno  vslname  vslhin  sorted  by  + 

vslname  where  vslname  ge  .strtltr  and  vslname  le  .endltr 
endif 

compute  numrows  as  rows  from  opervsls 
remove  opvslsl 
remove  opvsls2 
newpage 
if  numrows  fails  or  numrows  =  0  then 

write  "No  records  match  selection  criteria"  at  10  10 

write  "Please  press  any  key  to  continue"  at  16  10 

pause 
else 

output  printer  with  vsloper.rpt 

newpage 

print  vsloper 

output  screen 
endif 

remove  opvsls 
newpage 

clear  all  variables 
return 
*(  end  ) 
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APPENDIX  N 
PRSRPTS  SOURCE  CODE 

$ COMMAND 
PRS  MAIN 

*  I  *^******************************************************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

PERSONNEL  REPORTS  MENU  and  APPLICATION  PROGRAMS 

Author:  Jon  D.  Allen,  LT,  USCG 
Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

******************************************************* 

set  error  messages  off 

set  messages  off 

set  escape  off 

clear  all  variables 

nev/page 

set  var  pick9  integer 

choose  pick9  from  prs_menu  in  prsrpts.apx 

if  pick9  eq  0  then 

quit  to  restprs.cmd 
endif 
if  pick9  eq  1  then 

run  OWNERS  in  prsrpts.apx 

quit  to  restprs.cmd 
endif 
if  pick9  eq  2  then 

run  OWNvSL  in  prsrpts.apx 

quit  to  restprs.cmd 
endif 
if  pick9  eq  3  then 

run  OPERATOR  in  prsrpts.apx 

quit  to  restprs.cmd 
endif 
if  pick9  eq  4  then 

run  OPERVSLS  in  prsrpts.apx 

quit  to  restprs.cmd 
endif 
if.  pick9  eq  5  then 

quit  to  restrpts.cmd 
endif 

quit  to  restprs.cmd 
return 
$menu 
prs_menu 

column  SARELTIS  ---  PERSONNEL  REPORTS 
OWNERS  OF  VESSELS  SUMMARY  LISTING 

OWNER  ---  VESSELS  WHICH  ARE  OWNED  BY  SPECIFIED  OWNERS 
OPERATORS  OF  VESSELS  SUMMARY  LISTING 

OPERATORS  ---  VESSELS  WHICH  ARE  OPERATED  BY  SPECIFIED  OPERATORS 
RETURN  TO  REPORTS  MENU 
*(  end  ) 
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$ COMMAND 
OWNERS 

Program:  Vessel  Owners  Table  Dump 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

Description:       This  program  prints  a  sorted  listing  of 

vessel  owners  contained  in  the  database 
based  on  the  owner's  last  name  and  date 
of  birth. 

Tables  Used:       owners 

Temp  Tables:       ownsuml ,  ownsum2 

Reports  Used:      owners 

Forms  Used:       none 

set  null  "  " 

set  error  messages  off 

set  messages  off 

set  escape  on 

newpage 

clear  all  variables 

write  "This  program  will  dump  all  information  on  owners  in  the  + 

database"  at  3  1 

write  "which  are  selected  based  on  date  of  birth.   If  you  wish  to  + 

print"  at  4  1 

write  "out  the  entire  list  of  owners,   enter  the  date  [O1/01/1900]  + 

for  ■■  at  5  1 

write  "the  starting  date  and  todays  date  for  the  ending  date."  at  6  1 

set  var  datediff  to  0 

set  error  messages  on 

while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 

fillin  strtdate  using  "  "  at  3  53 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 

fillin  enddate  using  "  "  at  10  53 

set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
newpage 

write  "Since  this  listing  can  be  very  long,  you  have  the  option  of  + 
only"  at  3  1 

write  "printing  a  selected  alphabetical  grouping  of  owners.  You  will  + 
be"  at  41 

write  "asked  to  enter  a  single  letter  for  the  both  the  start  and  end  + 
of"  at  5  1 

write  "an  alphabetic  grouping.   For  example,   if  you  enter  in  an  [e]  + 
for"  at  6  1 

write  "start  and  an  [i]  for  the  end,   the  program  will  provide  a  + 
listing"  at  7  1 

write  rfof  only  those  owners  whose  last  names  begin  with  the  letters  "  + 
at  8  1 

write  "[e]  through  [i] .   To  select  the  entire  owner  database,   + 
please"  at  9  1 

write  "enter  [a]  and  [z]  in  their  corresponding  fields "  + 

at  10  1 

set  var  strtltr  text 
set  var  endltr  text 
set  var  ltrdiff  to  0 
set  error  messages  on 
while  ltrdiff  =  0  then 

fillin  strtltr  using  "Please  enter  starting  letter:   "  at  14  1 

fillin  endltr  using  "Please  enter  ending  letter:    "  at  16  1 

if  endltr  It  .strtltr  then 
set  var  ltrdiff  to  0 

else 

break 
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endif 
endwhile 

set  error  messages  off 
remove  ownsuml 
remove  ownsum2 
newpage 

project  ownsuml  from  owners  using  all  sorted  by  ownlname  where  + 
owndob  >=  .strtdate  and  owndob  <=  .enddate 

project  ownsum2  from  ownsuml  using  all  where  ownlname  ge  .strtltr  and  + 
ownlname  le  .endltr 
compute  numrows  as  rows  from  ownsum2 
newpage 
write  "Processing  of  statistical  information  completed."  at  10  1 

write  "Now  preparing  report "  at  11  1 

if  numrows  fails  or  numrows  =  0  then 

write  "No  records  match  selection  criteria"  at  10  10 

write  "Please  press  any  key  to  continue"  at  16  10 

pause 
else 

output  printer  with  owners. rpt 

newpage 

print  owners 

newpage 

output  screen 
endif 

remove  ownsuml 
remove  ownsum2 
newpage 

clear  all  variables 
return 
*(  end  ) 


$ COMMAND 

OPERATOR 

* / ************************************************************ 

Program:  Vessel  Operator  Listing 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:     August  1987 

Description:      This  program  performs  a  listing  of  operators 

of  vessels  contained  in  the  table  OPERATOR. 
They  are  selected  by  date  of  birth  and  by 
the  first  letter  of  the  last  name.  The 
listing  is  sorted  alphabetically  before 
being  printed. 

Tables  Used:       operator 

Temp  Tables:       opsuml ,  opsum2 

Reports  Used:      operator 

Forms  Used:       none 

*********************************************************************** < 

set  null  "  " 

set  error  messages  off 

set  messages  off 

set  escape  on 

newpage 

clear  all  variables 

write  "This  program  will  dump  all  information  on  operators  "  at  3  1 

write  "which  are  selected  based  on  date  of  birth.   If  you  wish  to  + 

print"  at  4  1 

write  "out  the  entire  list  of  operators,  enter  the  date  [01/01/1900]  + 

for"  at  5  1 

write  "the  starting  date  and  todays  date  for  the  ending  date."  at  6  1 

set  var  strtdate  date 

set  var  enddate  date 

set  var  datediff  to  0 
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set  error  messages  on 
while  datediff  <=  0  then 

write  "Please  enter  starting  date  in  the  form  MM/DD/YYYY:"  at  8  1 

fillin  strtdate  using  "  "  at  8  53 

write  "Please  enter  ending  date  in  the  form  MM/DD/YYYY:"  at  10  1 

fillin  enddate  using  "  "  at  10  53 

set  var  datediff  to  .enddate  -  .strtdate 
endwhile 

set  error  messages  off 
newpage 

write  "Since  this  listing  can  be  very  long,  you  have  the  option  of  + 
only"  at  3  1 

write  "printing  a  selected  grouping  of  operators.  You  will  be"  at  4  1 
write  "asked  to  enter  a  single  letter  for  the  both  the  start  and  end  + 
of  "  at  5  1 

write  "an  alphabetic  grouping.  For  example,  if  you  enter  in  an  [e]  + 
for"  at  6  1 

write  "start  and  an  [i]  for  the  end,   the  program  will  provide  a  + 
listing"  at  7  1 

write  "of  only  those  operators  whose  last  names  begin  with  the  + 
letters  "  at  8  1 

write  "[e]  through  [i] .   To  select  the  entire  operator  database,   + 
please"  at  9  1 

write  "enter  [a]  and  [z]  in  their  corresponding  fields "  + 

at  10  1 

set  var  strtltr  text 
set  var  endltr  text 
set  var  ltrdiff  to  0 
set  error  messages  on 
while  ltrdiff  =  0  then 

fillin  strtltr  using  "Please  enter  starting  letter:   "  at  14  1 

fillin  endltr  using  "Please  enter  ending  letter:    "  at  16  1 

if  endltr  It  .strtltr  then 
set  var  ltrdiff  to  0 

else 
break 

endif 
endwhile 

set  error  messages  off 
remove  opsuml 
remove  opsum2 
newpage 

project  opsuml  from  operator  using  all  sorted  by  oplname  where  + 
opdob  >=  .strtdate  and  opdob  <=  .enddate 

project  opsum2  from  opsuml  using  all  where  oplname  ge  .strtltr  and  + 
oplname  le  .endltr 
compute  numrows  as  rows  from  opsum2 
write  "Processing  of  statistical  information  completed."  at  10  1 

write  "Now  preparing  report "  at  11  1 

if  numrows  fails  or  numrows  =  0  then 

write  "No  records  match  selection  criteria"  at  10  10 

write  "Please  press  any  key  to  continue"  at  16  10 

pause 
else 

output  printer  with  operator. rpt 

newpage 

print  operator 

output  screen 
endif 

remove  opsuml 
remove  opsum2 
newpage 

clear  all  variables 
return 
*(  end  ) 


$ COMMAND 
OPERVSLS 
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*(********************************************************************** 

Program:  Operator  -  Vessel  Program 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:     August  1987 

Description:      This  program  performs  a  listing  sorted  by 

operator  last  name  of  those  vessels  which 
are  used  by  specified  operators.  Operators 
may  be  selected  by  an  alphabetic  search  or 
may  be  selected  in  their  entirety. 

Tables  Used:      opvsl,  operator,  vessel 

Temp  Tables:       opervsls,  opvslsl,  opvsls2 

Reports  Used:      opervsls 

Forms  Used:       none 

**************************************************** 

set  null  "  " 

set  error  messages  off 

set  messages  off 

set  escape  on 

newpage 

clear  all  variables 

write  "This  program  will  prepare  a  listing  of  vessels  which  are"  at  3  1 

write  "operated  by  a  selected  group  of  operators.  This  report  can"  + 

at  4  1 

write  "provide  a  listing  of  all  operators  and  their  vessels  by"  at  5  1 

write  "responding  [y]  to  the  following  question "  at  6  1 

write  "Do  you  wish  a  complete  listing  or  all  operators  and  their"  + 

at  9  1 

write  "vessels  contained  in  the  system?"  at  10  1 

set  var  allrecs  text 

set  error  messages  on 

fillin  allrecs  using  "  "  at  10  40 

set  error  messages  off 

remove  opervsls 

remove  opvslsl 

remove  opvsls2 

if  allrecs  =  "y"  then 

join  operator  using  opid  with  opvsl  using  idoper  forming  opvslsl 
join  opvslsl  using  vhmoper  with  vessel  using  vslhin  forming  opvsls2 
project  opervsls  from  opvsls2  using  oplname  opfname  opmi  opaob  + 
opaddr  opcity  opstate  opzip  optelno  vslname  vslhin  sorted  by  oplname 

else 

newpage 

set  var  strtltr  text 
set  var  endltr  text 
set  var  ltrdiff  to  0 
set  error  messages  on 
while  ltrdiff  =  0  then 

write  "Enter  starting  letter(s)  to  start  search:"  at  5  1 

fillin  strtltr  using  "  "  at  5  45 

write  "Enter  ending  letter(s)  to  end  search:"  at  7  1 

fillin  endltr  using  "  "  at  7  45 

if  endltr  It  .strtltr  then 

set  var  ltrdiff  to  0 
else 

break 
endif 
endwhile 

set  error  messages  off 

join  operator  using  opid  with  opvsl  using  idoper  forming  opvslsl 
join  opvslsl  using  vhinoper  with  vessel  using  vslhin  forming  opvsls2 
project  opervsls  from  opvsls2  using  oplname  opfname  opmi  opaob  + 
opaddr  opcity  opstate  opzip  optelno  vslname  vslhin  sorted  by  + 
oplname  where  oplname  ge  .strtltr  and  oplname  le  .endltr 

endif 

compute  numrows  as  rows  from  opervsls 

remove  opvslsl 
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remove  opvsls2 

newpage 

if  numrows  fails  or  numrows  =  0  then 

write  "No  records  match  selection  criteria"  at  10  10 

write  "Please  press  any  key  to  continue"  at  16  10 

pause 
else 

output  printer  with  opervsls.rpt 

newpage 

print  opervsls 

output  screen 
endif 

remove  opervsls 
newpage 

clear  all  variables 
return 
*(  end  ) 


$ COMMAND 
OWNVSL 


Program: 

Author: 

Date  Written: 

Description: 


Tables  Used: 
Temp  Tables: 
Reports  Used: 
Forms  Used: 


Owner  -  Vessel  Dump  Program 

J  D  Allen  and  H  R  Lang 

August  1987 

This  program  performs  a  listing  sorted  by 

owner  last  name  of  those  owners  which  own 

specific  vessels.   Owners  may  be  selected 

in  their  entirety  or  may  be  selected  by 

an  alphabetic  search. 

owvsl.  owners,  vessel 

ownvsls,  ownvslsl,  ownvsls2 

ownvsls 

none 


set  null  "  " 

set  error  messages  off 

set  messages  off 

set  escape  on 

newpage 

clear  all  variables 

write  "This  program  will  prepare  a  listing  of  vessels  which  are"  at  3  1 

write  "owned  by  a  selected  group  of  owners.   This  report  can"  at  4  1 

write  "provide  a  listing  of  all  owners  and  their  vessels  by"  at  5  1 

write  "responding  [y]  to  the  following  question "  at  6  1 

write  "Do  you  wish  a  complete  listing  ot  all  owners  and  their"  at  9  1 

write  "vessels  contained  in  the  system?"  at  10  1 

set  var  allrecs  text 

set  error  messages  on 

fillin  allrecs  using  "  "  at  10  40 

set  error  messages  off 

remove  ownvsls 

remove  ownvslsl 

remove  ownvsls2 

newpage 

if  allrecs  contains  "y"  then 

join  owners  using  ownid  with  owvsl  using  idowner  forming  ownvslsl 

join  ownvslsl  using  vhinown  with  vessel  using  vslhin  forming  + 

ownvsls2 

project  ownvsls  from  ownvsls2  using  ownlname  ownfname  ownmi  owndob  + 

ownaddr  owncity  ownstate  ownzip  owntelno  vslname  vslhin  sorted  by  + 

ownlname 
else 

newpage 

set  var  strtltr  text 
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set  var  endltr  text 
set  var  ltrdiff  to  0 
set  error  messages  on 
while  ltrdiff  =  0  then 

write  "Enter  starting  letter(s)  to  begin  search"  at  5  1 

fillin  strtltr  using  "  "  at  5  45 

write  "Enter  ending  letter(s)  to  end  search:"  at  7  1 

fillin  endltr  using  "  "  at  7  45 

if  endltr  It  .strtltr  then 

set  var  ltrdiff  to  0 
else 

break 
endif 
endwhile 

set  error  messages  off 

join  owners  using  ownid  with  owvsl  using  -idowner  forming  ownvslsl 
join  ownvslsl  using  vhinown  with  vessel  using  vslhin  forming  + 
ownvsls2 

project  ownvsls  from  ownvsls2  using  ownlname  ownfname  ownmi  owndob  + 
ownaddr  owncity  ownstate  ownzip  owntelno  vslname  vslhin  sorted  by  + 
ownlname  where  ownlname  ge  .strtltr  and  ownlname  le  .endltr 
endif 

compute  numrows  as  rows  from  ownvsls 
if  numrows  fails  or  numrows  =  0  then 

write  "No  records  match  selection  criteria"  at  10  10 
write  "Please  press  any  key  to  continue"  at  16  10 
pause 
else 

output  printer  with  ownvsls. rpt 
newpage 
print  ownvsls 
output  screen 
endif 

remove  ownvsls 
remove  ownvslsl 
remove  ownvsls 2 
newpage  . 

clear  all  variables 
return 
*(  end  ) 
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APPENDIX  O 
SQUERY  SOURCE  CODE 

$ COMMAND 
QRYMAIN 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

QUERY  MENU  and  APPLICATION  PROGRAMS 

Author:  Jon  D.  Allen,  LT,  USCG 
Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

set  messages  off 

set  escape  off 

newpage 

clear  all  variables 

set  var  picklO  integer 

newpage 

choose  picklO  from  qry_menu  in  squery.apx 

if  picklO  eq  0  then 

quit  to  restqry.cmd 
endif 
if  picklO  eq  1  then 

run  quer_vsl  in  squery.apx 

quit  to  restqry.cmd 
endif 
if  picklO  eq  2  then 

run  quer_per  in  squery.apx 

quit  to  restqry.cmd 
endif 
if  picklO  eq  3  then 

quit  to  restmain.cmd 
endif 

quit  to  restqry.cmd 
return 
$menu 
qrv_menu 

column  SARELTIS  ---  QUERY  MENU 
VESSEL  QUERY 
PERSONNEL  QUERY 
RETURN  TO  MAIN  MENU 
*(  end  ) 


$ COMMAND 
QUER  VSL 

Program:  Query  Vessel 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:      August  1987 

Description:      This  program  searches  database  for  all 

information  concerning  a  particular  vessel. 
Tables  Used:       vessel,  sar,  boarding,  owner,  operator, 
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owvsl,  opvsl,  vslintel,  perintel 
Temp  Tables:      temp,  vslint,  perint,  bonis,  sarhis 
Reports  Used:     vslqprn,  boqprn,  sarqprn,  owqprn,  opqprn, 

pintqprn,  vmtqprn 
Forms  Used:       vslquery,  brdquery,  sarquery,  ownquery, 

opquery,  pintquer,  vintquer 

******************************************************** 

set  messages  off 
set  escape  off 
newpage 

write  "Program  loading  in  progress.  Please  stand  by  "  + 

at  10  10 

clear  all  variables 

set  null  "  " 

set  var  more  to  Y 

remove  temp  *( relation  for  print  purposes  only) 

define 

attributes 

tmp  text  2 

relations 

temp  with  tmp 

end 

load  temp 

"XX" 
end 

while  more  eq  Y  then  *(main  loop) 
set  var  wslname  text 
set  var  choice  to  0 

while. choice  It  1  or  choice  gt  6  then 
newpage 
write  "Search  Option  Menu"  at  5  15 

write  " "  at  6  15 

write  "1.  Search  by  HIN"  at  8  15 
write  "2.  Search  by  Vessel  Name"  at  9  15 
write  "3.  Search  by  Vessel  Number"  at  10  15 
write  "4.  Search  by  Vessel  Official  Number"  at  11  15 
write  "5.  Search  Only  Vessel  Intelligence  File  by  Vessel  Name"  + 
at  12  15 

write  "6.  Quit"  at  13  15 
write  "Enter  Choice:  "  at  15  20 
fill in  choice  using  "  "  at  15  33 
endwhile 

if  choice  eq  2  then  *(search  by  vessel  name) 
set  var  chk-name  to  Y 
while  chk-name  eq  Y  then 
newpage 

write  "Enter  name  of  desired  vessel:  "  at  10  10 
fillin  wslname  using  "  "  at  10  39 
while  wslname  exists  then 

set  pointer  #1  el  for  vessel  where  vslname  eq  .wslname 
newpage 

if  el  eq  0  then 

.  sel  vslname  vslhin  vslmake  vslmodel  vsltype  vsllenft  from  + 
vessel  where  vslname  eq  .wslname 
write  "  " 

write  "End  of  data  for  this  vessel  name" 
write  "  " 

write  "Press  any  key  to  continue" 
pause 
else 

write  "This  vessel  name  does  not  exist  in  the  database"  + 
at  10  10 

write  "Press  any  key  to  continue"  at  15  15 
pause 

set  var  choice  to  0 
endif 
set  var  chk-name  to  N 
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break 
endwhile 
endwhile 
endif 

if  choice  eq  3  then  *(search  by  vessel  number) 
set  var  chk-no  to  Y 
while  chk-no  eq  Y  then 
newpage 

write  "Enter  number  of  desired  vessel:  "  at  10  10 
fillin  wslno  using  "  "  at  10  41 
while  wslno  exists  then 

set  pointer  #1  el  for  vessel  where  vslno  eq  .wslno 

newpage 

if  el  eq  0  then 

set  var  wslname  to  vslname  in  #1 

sel  vslname  vslhin  vslmake  vslmodel  vsltype  vsllenft  from  + 
vessel  where  vslno  eq  .wslno 
write  "  " 

write  "End  of  data  for  this  vessel  number" 
write  "  " 

write  "Press  any  key  to  continue" 
pause 
else 

write  "This  vessel  number  does  not  exist  in  the  database"  + 
at  10  10 

write  "Press  any  key  to  continue"  at  15  15 
pause 

set  var  choice  to  0 
endif 

set  var  chk-no  to  N 
break 
endwhile  • 
endwhile 
endif 

if  choice  eq  4  then  *(search  by  vessel  official  number) 
set  var  chkoffno  to  Y 
while  chkoffno  eq  Y  then 
newpage 

write  "Enter  official  number  of  desired  vessel:  "  at  10  10 
fillin  voffno  using  "  "  at  10  50 
while  voffno  exists  then 

set  pointer  #1  el  for  vessel  where  vsloffno  eq  .voffno 

newpage 

if  el  eq  0  then 

set  var  wslname  to  vslname  in  #1 

sel  vslname  vslhin  vslmake  vslmodel  vsltype  vsllenft  from  + 
vessel  where  vsloffno  eq  .voffno 
write  "  " 

write  "End  of  data  for  this  vessel  official  number" 
write  "  " 

write  "Press  any  key  to  continue" 
pause 
else 

write  "This  official  number  does  not  exist  in  the  database"  + 
at  10  10 

write  "Press  any  key  to  continue"  at  15  15 
pause 

set  var  choice  to  0 
endif 

set  var  chkoffno  to  N 
break 
endwhile 
endwhile 
endif 

if  choice  ne  5  and  choice  ne  6  and  choice  ne  0  then  *(search  by  HIN) 
set  var  menu  to  N 
set  var  chk-hin  to  Y 
while  chk-hin  eq  Y  then 
newpage 
if  wslname  exists  then 
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.wslname 

N 

then 


[PGDN]  to  + 


set  var  vlname  to 
set  var  nameok  to 
while  nameok  eq  N 
newpage 

set  pointer  #3  e3  for  vessel  where  vslname  eq  .vlname 
while  e3  eq  0  then 
newpage 

set  var  wslname  to  vslname  in  #3 
set  var  wslhin  to  vslhin  in  #3 
draw  hinquery  with  all  at  1 
write  "Press  [ENTER]  to  advance  to  next  hin, 
use  displayed  data,"  at  22  5 

write  "or  [ESC]  to  return  to  menu"  at  23  5 
edit  var  wslhin  return  esc  enter  pgdn 
if  #return  eq  enter  then 

next  #3  e3 
endif 

if  treturn  eq  pgdn  then 
set  var  nameok  to  Y 
break 
endif 

if  ttreturn  eq  esc  then 
set  var  nameok  to  Y 
set  var  menu  to  Y 
break 
endif 
endwhile 
endwhile 

if  menu  eq  Y  then 
set  var  choice  to  0 
break 
endif 
else 

set  var  wslhin  text 

write  "Enter  HIN  of  desired  vessel:  "  at  10  10 
write  "(or  enter  xxx  to  go  back  to  menu)"  at  12  10 
fillin  wslhin  using  "  "  at  10  38  ■ 
if  wslhin  exists  and  wslhin  eq  xxx  then 
set  var  choice  to  0 
break 
endif 
endif 
while  wslhin  exists  then 

set  pointer  ttl  el  for  vessel  where  vslhin  =  .wslhin 

newpage 

if  el  eq  0  then 

*(vessel  exists  in  database) 
wslno  to  vslno  in  #1 
wslname  to  vslname  in  #1 
wslmake  to  vslmake  in  #1 
wslmod  to  vslmodel  in  #1 
wslyear  to  vslyear  in  #1 
wslton  to  vsltons  in  #1 


set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 


var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 


wslft  to  vsllenft  in  #1 
wslin  to  vsllenin  in  #1 
wslhp  to  vslhp  in  #1 
wsluse  to  vsluse  in  #1 
vusedscr  to  vusedesc  in 


to 
to 


.wsluse 

set  var  wsltype 

set  var  vtypdscr 

.wsltype 

set  var  wslprop 

set  var  vpropdsc 

.wslprop 

set  var  wslhull 

set  var  vhulldsc 

.wslhull 

set  var  wsleng  to  vsleng  in 

set  var  vengdesc  to  ecompdes 


boatuse  where  vuse  eq  + 

vsltype  in  #1 

vtypedes  in  boattype  where  vtype  eq  + 


to  vslprop  in  #1 

to  propdesc  in  boatprop  where  proptype  eq  + 

to  vslhull  in  #1 

to  hmatdesc  in  hullmat  where  hmattype  eq  + 


#1 
in 


engcomp  where  ecomptyp  eq  + 
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.wsleng 

set  var  wslfuel  to  vslfuel  in  #1 

set  var  vfueldes  to  fcompdes  in  fuelcomp  where  fcomptyp  eq  + 

.wslfuel 

set  var  vconstr  to  vslconst  in  #1 

set  var  vcondesc  to  consdesc  in  constr  where  constype  eq  + 

.vconstr 

set  var  vdecal  to  cmedecal  in  #1 

set  var  vcmeyear  to  cmeyear  in  #1 

set  var  voffno  to  vsloffno  in  #1 

set  var  vhome  to  homeport  in  #1 

set  var  vcall  to  vslcall  in  #1 

set  var  walue  to  vslvalue  in  #1 

set  var  vsuper  to  vslsuper  in  #1 

set  var  vmasts  to  vslmasts  in  #1 

set  var  vsailno  to  sailno  in  #1 

set  var  vhlcolor  to  hlcolor  in  #1 

set  var  vtrcolor  to  trcolor  in  #1 

set  var  vslcolor  to  slcolor  in  #1 

set  var  vcbcolor  to  cbcolor  in  #1 

set  var  vdkcolor  to  dkcolor  in  #1 

set  var  vmarks  to  vslmarks  in  #1 

newpage 

draw  vslquery  with  all  at  1 

set  var  vslprn  to  A 

while  vslprn  ne  ?  and  vslprn  ne  C  and  vslprn  ne  M  then 

write  "Enter  P  to  print  vessel  data,  C  to  continue  or  M  + 
for  main  menu:  "  at  23  5 

fillin  vslprn  using  "  "  at  23  63 

if  vslprn  eq  P  then 
output  printer 
newpage 
print  vslqprn 
output  screen 

endif 

if  vslprn  eq  M  .then 
set  var  menu  to  Y 
set  var  chk-hin  to  N 
break 

endif 
endwhile 
if  menu  eq  Y  then 

set  var  choice  to  0 

break 
endif 

set  pointer  #2  e2  for  vslintel  where  intvname  eq  .wslname 
set  var  count  to  1 
if  e2  eq  0  then 

newpage 

write  "US  Coast  Guard  Group  Monterey  Intelligence  History"  + 

at  1  10 

write  " + 

"  at  2  1 

else 

newpage 

write  "There  is  no  intelligence  for  this  vessel  name"  + 

at  10  10 

write  "Press  any  key  to  continue"  at  23  10 

pause 

newpage 
endit 
while  e2  eq  0  then 

set  var  vintdate  to  intdate  in  #2 

set  var  vepic  to  epiccode  in  #2 

set  var  vstolen  to  stolen  in  #2 

set  var  wreml  to  vremarkl  in  #2 

set  var  wrem2  to  vremark2  in  #2 

set  var  wrem3  to  vremark3  in  #2 

if  count  eq  1  then 

draw  vintquer  with  all  at  3 
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endif 

if  count  eq  2  then 

draw  vintquer  with  all  at  9 
endif 
if  count  eq  3  then 

draw  vintquer  with  all  at  15 

write  "Press  any  key  to  continue"  at  23  10 

pause 

newpage 
endif 

set  var  count  to  .count  +  1 
if  count  eq  4  then 

set  var  count  to  1 
endif 

next  #2  e2 
endwhile 

set  pointer  #2  e2  for  vslintel  where  intvname  eq  .wslname 
if  e2  eq  0  then 

write  "Print  vessel  intelligence  information?  (Y)"  at  23  10 

fillin  vintprn  using  "("  at  23  49 

if  vintprn  fails  or  vintprn  eq  Y  then 

newpage 

write  "Preparing  report,  please  standby  "  + 

at  10  10 

remove  vslint 

project  vslint  from  vslintel  using  all  sorted  by  intdate  + 

where  intvname  eq  .wslname 

output  printer 

newpage 

print  vintqprn 

output  screen 

remove  vslint 
endif 
endif 

set  pointer  #2  e2  for  boarding  where  bovhin  eq  .wslhin 
while  a2  eq  0  then 

set  var  vbodate  to  bodate  in  #2 
set  var  vbotime  to  botime  in  #2 
set  var  vbono  to  bono,  in  #2 
set  var  wslpob  to  vslpob  in  #2 
set  var  vbolat  to  obslat  in  #2 
set  var  vbolong  to  obslong  in  #2 
set  var  wiol54  to  viol54  in  #2 
set  var  wiol55  to  viol55  in  #2 
set  var  wiol56  to  viol56  in  #2 
set  var  wiol57  to  viol57  in  #2 
set  var  wiol58  to  viol58.  in  #2 
set  var  wiol59  to  viol59  in  #2 
set  var  wiol60  to  viol60  in  #2 
set  var  wiol61  to  viol61  in  #2 
set  var  wiol62  to  viol62  in  #2 
set  var  wiol63  to  viol63  in  #2 
set  var  wiol64  to  viol64  in  #2 
set  var  wiol65  to  viol65  in  #2 
set  var  wiol66  to  viol66  in  #2 
set  var  wiol67  to  viol67  in  #2 
set  var  wiol68  to  viol68  in  #2 
set  var  vuns69  to  uns69  in  #2 
set  var  vuns70  to  uns70  in  #2 
set  var  vuns71  to  uns71  in  #2 
set  var  vuns72  to  uns72  in  #2 
set  var  vuns73  to  uns73  in  #2 
set  var  vuns74  to  uns74  in  #2 
set  var  vuns75  to  uns75  in  #2 
set  var  vuns76  to  uns76  in  #2 
set  var  vuns77  to  uns77  in  #2 
set  var  vuns78  to  uns78  in  #2 
set  var  vuns79  to  uns79  in  #2 
set  var  vboreml  to  boreml  in  #2 
set  var  vborem2  to  borem2  in  #2 
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set  var  vborem3  to  borem3  in  #2 

set  var  vboname  to  boname  in  #2 

set  var  vborate  to  borate  in  #2 

set  var  weapons  to  weapons  in  #2 

set  var  vale  to  uns76  in  #2 

newpage 

write  "US  Coast  Guard  Group  Monterey  Boarding  History"  + 

at  1  10 

write  " + 

■ "  at  2  1 

draw  brdquery  with  all  at  3 
write  "Press  any  key  to  continue"  at  23  10 
pause 

next  #2  e2 
endwhile 

set  pointer  #2  e2  for  boarding  where  bovhin  eq  .wslhin 
if  e2  eq  0  then 

write  "Print  boarding  history?  (Y)"  at  23  10 

fillin  bohisprn  using  "(•'  at  23  34 

if  bohisprn  fails  or  bohisprn  eq  Y  then 

newpage 

write  "Preparing  report,  please  stand  by  "  + 

at  10  10 

remove  bohis 

project  bohis  from  boarding  using  bodate  botime  bono  + 

vsloob  obslat  obslong  viol54  viol55  viol56  viol57  viol58  + 

vio!59  viol60  viol61  viol62  viol63  viol64  viol65  vioi66  + 

viol67  viol68  uns69  uns70  uns71  uns72  uns73  uns74  uns7  5  + 

uns76  uns77  uns78  uns79  boreml  borem2  borem3  boname  + 

borate  weapons  bovhin  sorted  by  bodate  where  + 

bovhin  eq  .wslhin 

output  printer 

newpage 

print  boqprn 

output  screen 

remove  bohis 
endif 
endif 

if  e2  ne  0  then 
newpage 

write  "There  are  no  boarding  cases  for  this  vessel"  + 
at  10  10 

write  "Press  any  key  to  continue"  at  20  10 
pause 
endif 

set  pointer  #2  e2  for  sar  where  sarvhin  eq  .wslhin 
set  var  count  to  1 
if  e2  eq  0  then 
newpage 
write  "US  Coast  Guard  Group  Monterey  Sar  History"  at  1  10 

write  " + 

■ "  at  2  1 

endif 

while  e2  eq  0  then 

set  var  vfoldno  to  folderno  in  #2 
set  var  vuen  to  ucn  in  #2 
set  var  vmucn  to  mucn  in  #2 
set  var  vsardate  to  sardate  in  #2 
set  var  vsarday  to  sarday  in  #2 
set  var  vsartime  to  sartime  in  #2 
set  var  vsarnod  to  sarnod  in  #2 
set  var  vsarpob  to  sarpob  in  #2 
set  var  vsarlat  to  sarlat  in  #2 
set  var  vsarlonq  to  sarlong  in  #2 
set  var  vdistoff  to  offshore  in  #2 
set  var  vimmed  to  immedsar  in  #2 
if  count  eq  1  then 

draw  sarquery  with  all  at  3 
endif 
if  count  eq  2  then 
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draw  sarquery  with  all  at  9 
endif 
if  count  eq  3  then 

draw  sarquery  with  all  at  15 

write  "Press  any  key  to  continue"  at  23  10 

pause 

newpage 
endir 

set  var  count  to  .count  +  1 
if  count  eq  4  then 

set  var  count  to  1 
endif 

next  #2  e2 
endwhile 

set  pointer  #2  e2  for  sar  where  sarvhin  eq  .wslhin 
if  e2  eq  0  then 

write  "Print  sar  history?  (Y)"  at  23  10 

fillin  sarhsprn  using  "("  at  23  29 

if  sarhsprn  fails  or  sarhsprn  eq  Y  then 

newpage 

write  "Preparing  report,  please  stand  by  "  + 

at  10  10 

remove  sarhis 

project  sarhis  from  sar  using  folderno  ucn  mucn  sardate  + 

sartime  sarnod  sarpob  sarlat  sarlong  offshore  immedsar  + 

sarvhin  sorted  by  sardate  where  sarvhin  eq  .wslhin 

output  printer 

newpage 

print  sarqprn 

output  screen 

remove  sarhis 
endif 
endif 

if  e2  ne  0  then 
newpage 

write  "There  are  no  sar  cases  for  this  vessel"  at  10  10  . 
write  "Press  any  key  to  continue"  at  20  10 
pause 
endif 

set  pointer  #2  e2  for  owvsl  where  vhinown  eq  .wslhin 
newpage 
while  e2  eq  0  then 

set  var  vowid  to  idowner  in  #2 

set  pointer  #3  e3  for  owners  where  ownid  eq  .vowid 

set  var  vowlname  to  ownlname  in  #3 

set  var  vowfname  to  ownfname  in  #3 

set  var  vowmi  to  ownmi  in  #3 

set  var  vowaddr  to  ownaddr  in  #3 

set  var  vowcity  to  owncity  in  #3 

set  var  vowst  to  ownstate  in  #3 

set  var  vowzip  to  ownzip  in  #3 

set  var  vowtelno  to  owntelno  in  #3 

set  var  vowdob  to  owndob  in  #3 

newpage 

draw  ownquery  with  all 

write  "Press  any  key  to  continue"  at  23  10 

pause 

set  pointer  #1  el  for  perintel  where  intlname  eq  .vowlname 

set  var  count  to  1 

if  el  eq  0  then 

newpage 

write  "US  Coast  Guard  Group  Monterey  Intelligence  + 
History"  at  1  10 

write  " + 

"  at  2  1 

else 

newpage 

write  "There  is  no  intelligence  for  this  owner"  at  10  10 
endif 
while  el  eq  0  then 
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set  var  vlname  to  intlname  in  #1 
set  var  vfname  to  intfname  in  #1 
set  var  vmi  to  intmi  in  #1 
set  var  vdob  to  intdob  in  #1 
set  var  vreml  to  pintreml  in  #1 
set  var  vrem2  to  pintrem2  in  #1 
set  var  vrem3  to  pintrem3  in  #1 
set  var  vdate  to  pintdate  in  #1 
if  count  eq  1  then 

draw  pintquer  with  all  at  3 
endif 
if  count  eq  2  then 

draw  pintquer  with  all  at  9 
endif 
if  count  eq  3  then 

draw  pintquer  with  all  at  15 

write  "Press  any  key  to  continue  "  + 

at  23  10 
pause 
newpage 
endir 

set  var  count  to  .count  +  1 
if  count  eq  4  then 

set  var  count  to  1 
endif 

next  #1  el 
endwhile 

write  "Press  any  key  to  continue  "  + 

at  23  10 
pause 

next  #2  e2 
endwhile 

write  "Print  owners  and  owner  intelligence?  (Y)"  at  23  10 
fillin  owhisprn  using  "("  at  23  47 
if  owhisprn  fails  or  owhisprn  eq  Y  then 
newpage 

write  "Preparing  report,  please  stand  by  "  at  10  10 

set  pointer  #2  e2  for  owvsl  where  vhinown  eq  .wslhin 
while  e2  eq  0  then 

set  var  vowid  to  idowner  in  #2 

set  pointer  #3  e3  for  owners  where  ownid  eq  .vowid 
set  var  vowlname  to  ownlname  in  #3 
set  var  vowfname  to  ownfname  in  #3 
set  var  vowmi  to  ownmi  in  #3 
set  var  vowaddr  to  ownaddr  in  #3 
set  var  vowcity  to  owncity  in  #3 
set  var  vowst  to  ownstate  in  #3 
set  var  vowzip  to  ownzip  in  #3 
set  var  vowtelno  to  owntelno  in  #3 
set  var  vowdob  to  owndob  in  #3 
output  printer 
newpage 
print  owqprn 
output  screen 
remove  perint 

project  perint  from  perintel  using  all  sorted  by  + 
pintdate  where  intlname  eq  .vowlname 
output  printer 
newpage 

print  pintqprn 
output  screen 
next  #2  e2 
endwhile 
remove  perint 
endif 

set  pointer  #2  e2  for  opvsl  where  vhinoper  eq  .wslhin 
newpage 
while  e2  eq  0  then 

set  var  vopid  to  idoper  in  #2 

set  pointer  #3  e3  for  operator  where  opid  eq  .vopid 
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set  var  voplname  to  oplname  in  #3 

set  var  vopfname  to  opfname  in  #3 

set  var  vopmi  to  opmi  in  #3 

set  var  vopaddr  to  opaddr  in  #3 

set  var  vopcity  to  opcity  in  #3 

set  var  vopst  to  opstate  in  #3 

set  var  vopzip  to  opzip  in  #3 

set  var  voptelno  to  optelno  in  #3 

set  var  vopdob  to  opdob  in  #3 

set  var  vopcrse  to  opcourse  in  #3 

newpage 

draw  opquery  with  all 

write  1,Press  any  key  to  continue"  at  23  10 

pause 

set  pointer  #1  el  for  perintel  where  intlname  eq  .voplname 

set  var  count  to  1 

if  el  eq  0  then 

newpage 

write  "US  Coast  Guard  Group  Monterey  Intelligence  + 

History"  at  1  10 

write  " + 

■ - "  at  2  1 

else 

newpage 

write  "There  is  no  intelligence  for  this  operator"  + 

at  10  10 
endif 
while  el  eq  0  then 

set  var  vlname  to  intlname  in  #1 

set  var  vfname  to  intfname  in  #1 

set  var  vmi  to  intmi  in  #1 

set  var  vdob  to  intdob  in  #1 

set  var  vreml  to  pintreml  in  #1 

set  var  vrem2  to  pintrem2  in  #1 

set  var  vrem3  to  pintrem3  in  #1 

set  var  vdate  to  pintdate  in  #1 

if  count  eq  1  then 

draw  pintquer  with  all  at  3 

endif 

if  count  eq  2  then 

draw  pintquer  with  all  at  9 

endif 

if  count  eq  3  then 

draw  pintquer  with  all  at  15 

write  "Press  any  key  to  continue"  at  23  10 

pause 

newpage 

endir 

set  var  count  to  .count  +  1 

if  count  eq  4  then 
set  var  count  to  1 

endif 

next  #1  el 
endwhile 

write  "Press  any  key  to  continue  "  at  23  10 

pause 

next  #2  e2 
endwhile 

write  "Print  operators  and  operator  intelligence?  (Y)"  + 
at  23  10 

fillin  ophisprn  using  "("  at  23  53 
if  ophisprn  fails  or  ophisprn  eq  Y  then 
newpage 

write  "Preparing  report,  please  standby  "  at  10  10 

set  pointer  #2  e2  for  opvsl  where  vhinoper  eq  .wslhin 
while  e2  eq  0  then 

set  var  vopid  to  idoper  in  #2 

set  pointer  #3  e3  for  operator  where  opid  eq  .vopid 

set  var  voplname  to  oplname  in  #3 

set  var  vopfname  to  opfname  in  #3 
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set  var  vopmi  to  opmi  in  #3 
set  var  vopaddr  to  opaddr  in  #3 
set  var  vopcity  to  opcity  in  #3 
set  var  vopst  to  opstate  in  #3 
set  var  vopzip  to  opzip  in  #3 
set  var  voptelno  to  optelno  in  #3 
set  var  vopdob  to  opdob  in  #3 
set  var  vopcrse  to  opcourse  in  #3 
output  printer 
newpage 
print  opqprn 
output  screen 
remove  perint 

project  perint  from  perintel  using  all  sorted  by  + 
pintdate  where  intlname  eq  .voplname 
output  printer 
newpage 

print  pintqprn 
output  screen 
next  #2  e2 
endwhile 
remove  perint 
endif 
newpage 

write  "End  of  data  for  this  vessel"  at  21  10 
set  var  chk-hin  to  N 
break 
else 

newpage 

write  "This  HIN  does  not  exist  in  the  database"  at  10  20 

write  "Do  you  wish  to  reenter  the  HIN?  (Y)"  at  12  20 

fillin  correct  using  " ("  at  12  52 

if  correct  exists  and  correct  eq  N  then 

set  var  chk_hin  to  N 
endif 
break 
endif 
endwhile 
endwhile 
endif 

if  choice  eq  5  then 
set  var  chk-intl  to  Y 
while  chk-intl  eq  Y  then 
newpage 

write  "Enter  name  of  desired  vessel:  "  at  10  10 
fillin  wslname  using  "  "  at  10  39 
while  wslname  exists  then 

set  pointer  #2  e2  for  vslintel  where  intvname  eq  .wslname 
set  var  count  to  1 
if  e2  eq  0  then 
newpage 

write  "US  Coast  Guard  Group  Monterey  Intelligence  History"  + 
at  1  10 

write  " + 

• "  at  2  1 

else 

newpage 

write  "There  is  no  intelligence  for  this  vessel  name"  at  10  10 
write  "Press  any  key  to  continue"  at  23  10 
pause 
endif 
while  e2  eq  0  then 

set  var  vintdate  to  intdate  in  #2 
set  var  vepic  to  epiccode  in  #2 
set  var  vstolen  to  stolen  in  #2 
set  var  wreml  to  vremarkl  in  #2 
set  var  wrem2  to  vremark2  in  #2 
set  var  wrem3  to  vremark3  in  #2 
if  count  eq  1  then 

draw  vintquer  with  all  at  3 
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endif 

if  count  eq  2  then 

draw  vintquer  with  all  at  9 
endif 
if  count  eq  3  then 

draw  vintquer  with  all  at  15 
write  "Press  any  key  to  continue"  at  23  10 
pause 
newpage 
endif 

set  var  count  to  .count  +  1 
if  count  eq  4  then 

set  var  count  to  1 
endif 

next  #2  e2 
endwhile 

set  pointer  #2  e2  for  vslintel  where  intvname  eq  .wslname 
if  e2  eq  0  then 

write  "Print  vessel  intelligence  information?  (Y)"  at  23  10 
fillin  vintprn  using  "("  at  23  49 
if  vintprn  fails  or  vintprn  eq  Y  then 
remove  vslint 

project  vslint  from  vslintel  using  all  sorted  by  intdate  + 
where  intvname  eq  .wslname 
output  printer 
newpage 

print  vintqprn 
output  screen 
remove  vslint 
endif 
endif 

write  "End  of  data  for  this  vessel" 
set  var  chk-intl  to  N 
endwhile 
endwhile 
endif 

if  choice  eq  6  then 
set  var  more  to  N 
endif 
endwhile  *(end  of  main  loop) 
remove  temp 
remove  bohis 
remove  sarhis 
remove  perint 
remove  vslint 
set  null  -0- 
return 
*(  end  ) 


$ COMMAND 

QUER  PER 

* ( ****************************************** 

Program:  Query  Personnel 

Author:  H  R  Lang  and  J  D  Allen 

Date  Written:      August  1987 

Description:      This  program  searches  database  for  all 

information  concerning  a  particular  person, 

including  all  vessels  owned  or  operated 

and  all  historical  information  concerning 

these  vessels. 
Tables  Used:      vessel,  sar,  boarding,  owner,  operator, 

owvsl,  opvsl,  opown,  vslintel,  perintel 
Temp  Tables:      temp,  vslint,  perint,  bohis,  sarhis, 

vslsown,  vslsopr,  wvsljoin,  pvsljoin 
Reports  Used:      vslqprn,  boqprn,  sarqprn,  perqprn, 

pintqprn,  vintqprn 
Forms  Used:       vslquery,  brdquery,  sarquery,  perquerl, 
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perquer2,  pintquer,  vintquer 

set  messages  off 

set  escape  off 

newpage 

write  "Program  loading  in  progress.   Please  stand  by  "  + 

at  10  10 

clear  all  variables 

set  null  "  " 

set  var  more  to  Y 

remove  temp  ^(relation  for  print  purposes  only) 

define 

attributes 

tmp  text  2 

relations 

temp  with  tmp 

end 

load  temp 

"XX" 
end 

while  more  eq  Y  then  *(main  loop) 
set  var  ownfound  to  N 
set  var  oprfound  to  N 
set  var  status  to  N 
newpage 

write  "Press  [PGDN]  after  entering  initial  information  to  check  if"  + 
at  1  5 

write  "person  exists  in  database.   Press  [ESC]  to  quit"  at  2  10 
draw  perquerl  at  4 
enter  var  return  esc  pgdn 
if  #return  ne  esc  then 

if  vlname  exists  and  vfname  exists  then 

set  pointer  #2  e2  for  owners  where  ownlname  contains  .vlname  and  + 

ownfname  contains  .vfname 

newpage 

while  e2  eg  0  then 

*(last/first  name  exist  in  owners) 
set  var  vplname  to  ownlname  in  #2 
set  var  vpfname  to  ownfname  in  #2 
set  var  vpermi  to  ownmi  in  #2 
set  var  vperdob  to  owndob  in  #2 
set  var  vperaddr  to  ownaddr  in  #2 
set  var  vpercity  to  owncity  in  #2 
set  var  vperst  to  ownstate  in  #2 
set  var  vperzip  to  ownzip  in  #2 
set  var  vpertel  to  owntelno  in  #2 
newpage 

draw  perquer2  with  all  at  3 
write  "Correct  owner?  (N)"  at  21  20 
fillin  owfound  using  "("  at  21  35 
if  owfound  exists  and  owfound  eq  Y  then 
set  var  vowid  integer 
set  var  vowid  to  ownid  in  #2 
set  var  ownfound  to  Y 
break 
endif 

next  #2  e2 
endwhile 

set  var  chk-op  to  Y 
if  ownfound  eq  Y  then 

set  pointer  #2  e2  for  opown  where  ownno  eq  .vowid 
if  e2  eq  0  then 

set  var  vopid  to  opno  in  #2 
set  var  oprfound  to  Y 
set  var  chk-op  to  N 
else 

set  pointer  #3  e3  for  operator  where  oplname  =  .vlname  and  + 
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op f name  =  .vfname 

*(check  if  an  operator  record  =  owner  record) 

newpage 

while  e3  eg  0  then 

*(last/first  name  exist  in  operator) 

set  var  voplname  to  oplname  in  #3 

set  var  vopfname  to  opfname  in  #3 

set  var  vopmi  to  opmi  in  #3 

set  var  vopdob  to  opdob  in  #3 

set  var  vopaddr  to  opaddr  in  #3 

set  var  vopcity  to  opcity  in  #3 

set  var  vopst  to  opstate  in  #3 

set  var  vopzip  to  opzip  in  #3 

set  var  voptelno  to  optelno  in  #3 

set  var  owoptest  to  T 

if  vplname  ne  .voplname  or  vpfname  ne  .vopfname  then 

set  var  owoptest  to  F 
endif 
if  vpermi  exists  and  vopmi  exists  and  vpermi  ne  .vopmi  then 

set  var  owoptest  to  F 
endif 

if  vperdob  exists  and  vopdob  exists  and  vperdob  ne  .vopdob  + 
then 

set  var  owoptest  to  F 
endif 

if  vperaddr  exists  and  vopaddr  exists  and  vperaddr  ne  + 
.vopaddr  then 

set  var  owoptest  to  F 
endif 

if  vpercity  exists  and  vopcity  exists  and  vpercity  ne  + 
.vopcity  then 

set  var  owoptest  to  F 
endif 
if  vperst  exists  and  vopst  exists  and  vperst  ne  .vopst  then 

set  var  owoptest  to  F 
endif 

if  vperzip  exists  and  vopzip.  exists  and  vperzip  ne  .vopzip  + 
then 

set  var  owoptest  to  F 
endif 

if  vpertel  exists  and  voptelno  exists  and  vpertel  ne  + 
.voptelno  then 

set  var  owoptest  to  F 
endif 

if  owoptest  eq  T  then 
set  var  vopid  integer 
set  var  vopid  to  opid  in  #3 
set  var  chk-op  to  N 
set  var  oprfound  to  Y 
break 
endif 

next  #3  e3 
endwhile 
endif 
endif 
if  chk-op  eq  Y  then 

set  pointer  #3  e3  for  operator  where  oplname  contains  .vlname  + 

and  opfname  contains  .vfname 

newpage 

while  e3  eq  0  then 

*(last/first  name  exist  in  operator) 
set  var  vplname  to  oplname  in  #3 
set  var  vpfname  to  opfname  in  #3 
set  var  vpermi  to  opmi  in  #3 
set  var  vperdob  to  opdob  in  #3 
set  var  vperaddr  to  opaddr  in  #3 
set  var  vpercity  to  opcity  in  #3 
set  var  vperst  to  opstate  in  #3 
set  var  vperzip  to  opzip  in  #3 
set  var  vpertel  to  optelno  in  #3 
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newpage 

draw  perquer2  with  all  at  3 
write  "Correct  operator?  (N)"  at  22  20 
fillin  opfound  using  "("  at  22  38 
if  opfound  exists  and  opfound  eq  Y  then 
set  var  vopid  integer 
set  var  vopid  to  opid  in  #2 
set  var  oprfound  to  Y 
break 
endif 

next  #3  e3 
endwhile 
endif 

if  ownfound  eq  Y  or  oprfound  eq  Y  then 
newpage 

write  "Print  owner/operator  information?  (Y)"  at  10  10 
fillin  persprn  using  "("  at  10  44 
if  persprn  fails  or  persprn  eq  Y  then 
newpage 

write  "Preparing  report,  please  stand  by "  at  10  10 

output  printer 
newpage 
print  perqprn 
output  terminal 
endif 
endif 
if  ownfound  eq  N  and  oprfound  eq  N  then 

set  var  vplname  to  .vlname 
endif 

set  pointer  #1  el  for  perintel  where  intlname  contains  .vplname 
set  var  count  to  1 
if  el  eq  0  then 
newpage 

write  "US  Coast  Guard  Group  Monterey  Intelligence  History"  + 
at  1  10 

write  " + 

■ "at  2  1 

else 
newpage 

write  "There  is  no  intelligence  for  this  person"  at  10  10 
write  "Press  any  key  to  continue  "  at  23  10 

pause 
endif 
while  el  eq  0  then 

set  var  vlname  to  intlname 
set  var  vfname  to  intfname 
set  var  vmi  to  intmi  in  #1 
set  var  vdob  to  intdob  in 
set  var  vreml  to  pintreml 
set  var  vrem2  to  pintrem2 
set  var  vrem3  to  pintrem3 
set  var  vdate  to  pintdate 
if  count  eq  1  then 

draw  pintquer  with  all  at  3 
endif 
if  count  eq  2  then 

draw  pintquer  with  all  at  9 
endif 
if  count  eq  3  then 

draw  pintquer  with  all  at  15 

write  "Press  any  key  to  continue  "  at  23  10 

pause 
newpage 
endif 

set  var  count  to  .count  +  1 
if  count  eq  4  then 

set  var  count  to  1 
endif 
next  #1  el 
endwhile 
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in  #1 

in  #1 

#1 

in 

#1 

in 

#1 

in 

#1 

in 

#1 

set  pointer  #1  el  for  perintel  where  intlname  eq  .vplname 
if  el  eq  0  then 

write  "Print  personnel  intelligence?  (Y)"  at  23  10 

fillin  perintpr  using  "("  at  23  40 

if  perintpr  fails  or  perintpr  eq  Y  then 
newpage 

write  "Preparing  report,  please  stand  by "  at  10  10 

remove  perint 

project  perint  from  perintel  using  all  sorted  by  pintdate  + 

where  intlname  eq  .vplname 

output  printer 

newpage 

print  pintqprn 

output  screen 

remove  perint 

endif 
endif 

^(determine  status  of  person,  select  vessels  owned  and  operated) 
*(W  =  owner,  P  =  operator,  B  =  both  and  N  =  neither) 
if  ownfound  eq  Y  and  oprfound  eq  Y  then 

set  var  status  to  B 

remove  vslsown 

project  vslsown  from  owvsl  using  all  where  idowner  eq  .vowid 

remove  wvsljoin 

join  vslsown  using  vhinown  with  vessel  using  vslhin  forming  + 

wvsljoin  where  eq 

newpage 

write  "This  individual  owns  the  following  vessels:"  at  1  2 

write  "  " 

sel  vslhin  vslname  from  wvsljoin 

write  "  " 

write  "End  of  data." 

remove  vslsopr 

project  vslsopr  from  opvsl  using  all  where  idoper  eq  .vopid 

remove  pvsljoin 

join  vslsown  using  vhinown  with  vessel  using  vslhin  forming  + 

pvsljoin  where  eq 

write  "  " 

write  "  " 

write  "This  individual  has  operated  the  following  vessels:" 

write  "  " 

sel  vslhin  vslname  from  pvsljoin 

write  "  " 

write  "End  of  data.  Press  any  key  to  continue" 

pause 
endif 
if  ownfound  eq  Y  and  oprfound  eq  N  then 

set  var  status  to  W 

remove  vslsown 

project  vslsown  from  owvsl  using  all  where  idowner  eq  .vowid 

remove  wvsljoin 

join  vslsown  using  vhinown  with  vessel  using  vslhin  forming  + 

wvsljoin  where  eq 

newpage 

write  "This  individual  owns  the  following  vessels:"  at  1  10 

write  "  " 

sel  vslhin  vslname  from  wvsljoin 

write  "  " 

write  "End  of  data.  Press  any  key  to  continue" 

pause 
endif 
if  ownfound  eq  N  and  oprfound  eq  Y  then 

set  var  status  to  P 

remove  vslsopr 

project  vslsopr  from  opvsl  using  all  where  idoper  eq  .vopid 

remove  pvsljoin 

join  vslsown  using  vhinown  with  vessel  using  vslhin  forming  + 

pvsljoin  where  eq 

newpage 

write  "This  individual  has  operated  the  following  vessels:"  + 
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at  1  10 
write  "  " 

sel  vslhin  vslname  from  pvsljoin 
write  "  " 

write  "End  of  data.  Press  any  key  to  continue" 
pause 
endif 

if  status  ne  N  then 
newpage 

write  "Do  you  wish  to  search  for  full  information  concerning  + 
these  vessels?  (N)"  at  10  5 

fillin  searchok  using  "("  at  10  74 
if  searchok  exists  and  searchok  eq  Y  then 
set  var  done  to  N 
set  var  owndone  to  N 
while  done  eq  N  then 

if  status  eg  B  and  owndone  eq  N  then 
remove  vslsown 

project  vslsown  from  owvsl  using  all  where  idowner  eq  .vowid 
set  pointer  #3  e3  for  vslsown 
endif 

if  status  eg  W  then 
remove  vslsown 

project  vslsown  from  owvsl  using  all  where  idowner  eq  .vowid 
set  pointer  #3  e3  for  vslsown 
endif 

if  status  eg  P  then 
remove  vslsopr 

project  vslsopr  from  opvsl  using  all  where  idoper  eq  .vopid 
set  pointer  #3  e3  for  vslsopr 
endif 

if  status  eg  B  and  owndone  eq  Y  then 
remove  vslsopr 

project  vslsopr  from  opvsl  using  all  where  idoper  eg  .vopid 
set  pointer  #3  e3  for  vslsopr  where  vhinoper  nea  vhinown  + 
in  vslsown 
endif 
while  e3  eq  0  then 

if  status  eq  B  and  owndone  eq  N  or  status  eq  W  then 

set  var  wslhin  to  vhinown  in  #3 
endif 
if  status  eq  B  and  owndone  eq  Y  or  status  eq  P  then 

set  var  wslhin  to  vhinoper  in  #3 
endif 

set  pointer  #1  el  for  vessel  where  vslhin  eq  .wslhin 
set  var  wslno  to  vslno  in  #1 
set  var  wslname  to  vslname  in  #1 
set  var  wslmake  to  vslmake  in  #1 
set  var  wslmod  to  vslmodel  in  #1 
set  var  wslyear  to  vslyear  in  #1 
set  var  wslton  to  vsltons  in  #1 
set  var  wslft  to  vsllenft  in  #1 
set  var  wslin  to  vsllenin  in  #1 
set  var  wslhp  to  vslhp  in  #1 
set  var  wsluse  to  vsluse  in  #1 

set  var  vusedscr  to  vusedesc  in  boatuse  where  vuse  eq  + 
.wsluse 

set  var  wsltype  to  vsltype  in  #1 

set  var  ytypdscr  to  vtypedes  in  boattype  where  vtype  eq  + 
.wsltype 

set  var  wslprop  to  vslprop  in  #1 

set  var  vpropdsc  to  propdesc  in  boatprop  where  proptype  eq  + 
.wslprop 

set  var  wslhull  to  vslhull  in  #1 

set  var  vhulldsc  to  hmatdesc  in  hullmat  where  hmattype  eq  + 
.wslhull 

set  var  wsleng  to  vsleng  in  #1 

set  var  vengdesc  to  ecompdes  in  engcomp  where  ecomptyp  eq  + 
.wsleng 
set  var  wslfuel  to  vslfuel  in  #1 
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set  var  vfueldes  to  fcompdes  in  fuelcomp  where  fcomptyp  eq  + 

.wslfuel 

set  var  vconstr  to  vslconst  in  #1 

set  var  vcondesc  to  consdesc  in  constr  where  constype  eq  + 

.vconstr 

set  var  vdecal  to  cmedecal  in  #1 

set  var  vcmeyear  to  cmeyear  in  #1 

set  var  voffno  to  vsloffno  in  #1 

set  var  vhome  to  homeport  in  #1 

set  var  vcall  to  vslcall  in  #1 

set  var  walue  to  vslvalue  in  #1 

set  var  vsuper  to  vslsuper  in  #1 

set  var  vmasts  to  vslmasts  in  #1 

set  var  vsailno  to  sailno  in  #1 

set  var  vhlcolor  to  hlcolor  in  #1 

set  var  vtrcolor  to  trcolor  in  #1 

set  var  vslcolor  to  slcolor  in  #1 

set  var  vcbcolor  to  cbcolor  in  #1 

set  var  vdkcolor  to  dkcolor  in  #1 

set  var  vmarks  to  vslmarks  in  #1 

newpage 

if  status  eg  B  and  owndone  eg  N  or  status  eq  W  then 

write  "This  vessel  is  owned  by  the  designated  + 
individual.  Press  any  key  to  continue"  at  1  1 
endif 
if  status  eq  B  and  owndone  eq  Y  or  status  eq  P  then 

write  "Subject  person  has  operated  this  vessel.  Press  + 
any  key  to  continue"  at  1  1 
endif 

draw  vslquery  with  all  at  3 
pause 

set  pointer  #2  e2  for  vslintel  where  intvname  eq  .wslname 
set  var  count  to  1 
if  e2  eq  0  then 

newpage 

write  "US  Coast  Guard  Group  Monterey  Intelligence  + 
History"  at  1  10 

write  " + 

"  at  2  1 

else 

newpage 

write  "There  is  no  intelligence  for  this  vessel  name"  + 

at  10  10 

write  "Press  any  key  to  continue"  at  23  10 

pause 
endif 
newpage 
while  e2  eq  0  then 

set  var  vintdate  to  intdate  in  #2 

set  var  vepic  to  epiccode  in  #2 

set  var  vstolen  to  stolen  in  #2 

set  var  wreml  to  vremarkl  in  #2 

set  var  wrem2  to  vremark2  in  #2 

set  var  wrem3  to  vremark3  in  #2 

if  count  eq  1  then 

draw  vintquer  with  all  at  3 

endif 

if  count  eq  2  then 

draw  vintquer  with  all  at  9 

endif 

if  count  eq  3  then 

draw  vintquer  with  all  at  15 

write  "Press  any  key  to  continue"  at  23  10 

pause 

newpage 

endif 

set  var  count  to  .count  +  1 

if  count  eq  4  then 
set  var  count  to  1 

endif 
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next  #2  e2 
endwhile 
if  status  eq  W  or  status  eg  B  then 

set  pointer  #3  e3  for  vslsown 
endif 
if  status  eq  P  then 

set  pointer  #3  e3  for  vslsopr 
endif 
if  status  eq  B  and  owndone  eq  Y  then 

set  pointer  #3  e3  for  vslsopr  where  vhinoper  nea  + 
vhinown  in  vslsown 
endif 
if  e3  eq  0  then 

write  "Print  vessel  information  and  intelligence?  (Y)"  + 
at  23  10 

fillin  vslprn  using  "("  at  23  53 
if  vslprn  fails  or  vslprn  eg  Y  then 
newpage 

write  "Preparing  report,  please  stand  by "  + 

at  10  10 

while  e3  eg  0  then 

set  var  wslhin  to  vhinown  in  #3  - 

set  pointer  #1  el  for  vessel  where  vslhin  eg  .wslhin 

set  var  wslno  to  vslno  in  #1 

set  var  wslname  to  vslname  in  #1 

set  var  wslmake  to  vslmake  in  #1 

set  var  wslmod  to  vslmodel  in  #1 

set  var  wslyear  to  vslyear  in  #1 

set  var  wslton  to  vsltons  in  #1 

set  var  wslft  to  vsllenft  in  #1 

set  var  wslin  to  vsllenin  in  #1 

set  var  wslhp  to  vslhp  in  #1 

set  var  wsluse  to  vsluse  in  #1 

set  var  vusedscrto  vusedesc  in  boatuse  where  vuse  + 

eg  .wsluse 

set  var  wsltype  to  vsltype  in  #1 

set  var  vtypdscr  to  vtypedes  in  boattype  where  + 

vtype  eg  .wsltype 

set  var  wslprop  to  vslprop  in  #1 

set  var  vpropdsc  to  propdesc  in  boatprop  where  + 

proptype  eg  .wslprop 

set  var  wslhull  to  vslhull  in  #1 

set  var  vhulldsc  to  hmatdesc  in  hullmat  where  + 

hmattype  eg  .wslhull 

set  var  wsleng  to  vsleng  in  #1 

set  var  vengdesc  to  ecompdes  in  engcomp  where  + 

ecomptyp  eg  .wsleng 

set  var  wslfuel  to  vslfuel  in  #1 

set  var  vfueldes  to  fcompdes  in  fuelcomp  where  + 

fcomptyp  eg  .wslfuel 

set  var  vconstr  to  vslconst  in  #1 

set  var  vcondesc  to  consdesc  in  constr  where  + 

constype  eg  .vconstr 

set  var.  vdecal  to  cmedecal  in  #1 

set  var  vcmeyear  to  cmeyear  in  #1 

set  var  voffno  to  vsloffno  in  #1 

set  var  vhome  to  homeport  in  #1 

set  var  vcall  to  vslcall  in  #1 

set  var  walue  to  vslvalue  in  #1 

set  var  vsuper  to  vslsuper  in  #1 

set  var  vmasts  to  vslmasts  in  #1 

set  var  vsailno  to  sailno  in  #1 

set  var  vhlcolor  to  hlcolor  in  #1 

set  var  vtrcolor  to  trcolor  in  #1 

set  var  vslcolor  to  slcolor  in  #1 

set  var  vcbcolor  to  cbcolor  in  #1 

set  var  vdkcolor  to  dkcolor  in  #1 

set  var  vmarks  to  vslmarks  in  #1 

newpage 

write  "Preparing  report,  please  standby "  + 
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at  10  10 

output  printer 

newpage 

print  vslqprn 

output  screen 

set  pointer  #2  e2  for  vslintel  where  intvname  eq  + 

.wslname 

if  e2  eq  0  then 
remove  vslint 

project  vslint  from  vslintel  using  all  sorted  by  + 
mtaate  where  intvname  eq  .wslname 
output  printer 
newpage 

print  vintqprn 
output  screen 
remove  vslint 

endif 

next  #3  e3 
endwhile 
endif 
endif 

set  pointer  #2  e2  for  boarding  where  bovhin  eq  .wslhin 
while  e2  eq  0  then 

set  var  vbodate  to  bodate  in  #2 

set  var  vbotime  to  botime  in  #2 

set  var  vbono  to  bono  in  #2 

set  var  wslpob  to  vslpob  in  #2 

set  var  vbolat  to  obslat  in  #2 

set  var  vbolong  to  obslong  in  #2 

set  var  wiol54  to  viol54  in  #2 

set  var  wiol55  to  viol55  in  #2 

set  var  wiol56  to  viol56  in  #2 

set  var  wiol57  to  viol57  in  #2 

set  var  wiol58  to  viol58  in  #2 

set  var  wiol59  to  viol59  in  #2 

set  var  wiol60  to  viol60  in  #2 

set  var  wiol61  to  viol61  in  #2 

set  var  wiol62  to  viol62  in  #2 

set  var  wiol63  to  viol63  in  #2 

set  var  wiol64  to  viol64  in  #2 

set  var  wiol65  to  viol65  in  #2 

set  var  wiol66  to  viol66  in  #2 

set  var  wiol67  to  viol67  in  #2 

set  var  wiol68  to  viol68  in  #2 

set  var  vuns69  to  uns69  in  #2 

set  var  vuns70  to  uns70  in  #2 

set  var  vuns71  to  uns71  in  #2 

set  var  vuns72  to  uns72  in  #2 

set  var  vuns73  to  uns73  in  #2 

set  var  vuns74  to  uns74  in  #2 

set  var  vuns75  to  uns75  in  #2 

set  var  vuns76  to  uns76  in  #2 

set  var  vuns77  to  uns77  in  #2 

set  var  vuns78  to  uns78  in  #2 

set  var  vuns79  to  uns79  in  #2 

set  var  vboreml  to  boreml  in  #2 

set  var  vborem2  to  borem2  in  #2 

set  var  vborem3  to  borem3  in  #2 

set  var  vboname  to  boname  in  #2 

set  var  vborate  to  borate  in  #2 

set  var  vweapons  to  weapons  in  #2 

set  var  vale  to  uns76  in  #2 

newpage 

write  "US "Coast  Guard  Group  Monterey  Boarding  History"  + 

at  1  10 

write  " + 

— "  at  2  1 

draw  brdquery  with  all  at  3 

write  "Press  any  key  to  continue"  at  23  10 

pause 
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next  #2  e2 
endwhile 

set  pointer  #2  e2  for  boarding  where  bovhin  eq  .wslhin 
if  e2  eq  0  then 

write  "Print  boarding  history?  (Y)"  at  23  10 

fillin  bohisprn  using  "("  at  23  34 

if  bohisprn  fails  or  bohisprn  eq  Y  then 

newpage 

write  "Preparing  report,  please  stand  by "  + 

at  10  10 

remove  bohis 

project  bohis  from  boarding  using  bodate  botime  bono  h 

vslpob  obslat  obslong  viol54  viol55  viol56  viol57  + 

viol58  viol59  viol60  viol61  viol62  viol63  viol64  + 

viol65  viol66  viol67  viol68  uns69  uns70  uns71  uns72  + 

uns73  uns74  uns75  uns76  uns77  uns78  uns79  boreml  + 

borem2  borem3  boname  borate  weapons  bovhin  sorted  by  h 

bodate  where  bovhin  eq  .wslhin 

output  printer 

newpage 

print  boqprn 

output  screen 

remove  bohis 
endif 
endif 

if  e2  ne  0  then 
newpage 

write  "There  are  no  boarding  cases  for  this  vessel"  + 
at  10  10 

write  "Press  any  key  to  continue"  at  20  10 
pause 
endif 

set  pointer  #2  e2  for  sar  where  sarvhin  eq  .wslhin 
set  var  count  to  1 
if  e2  eq  0  then 
newpage 

write  "US  Coast  Guard  Group  Monterey  Sar  History"  + 
at  1  10 

write  " • + 

■ "  at  2  1 

endif 

while  e2  eq  0  then 

set  var  vfoldno  to  folderno  in  #2 
set  var  vucn  to  ucn  in  #2 
set  var  vmucn  to  mucn  in  #2 
set  var  vsardate  to  sardate  in  #2 
set  var  vsarday  to  sarday  in  #2 
set  var  vsartime  to  sartime  in  #2 
set  var  vsarnod  to  sarnod  in  #2 
set  var  vsarpob  to  sarpob  in  #2 
set  var  vsarlat  to  sarlat  in  #2 
set  var  vsarlong  to  sarlong  in  #2 
set  var  vdistoff  to  offshore  in  #2 
set  var  vimmed  to  immedsar  in  #2 
if  count  eq  1  then 

draw  sarquery  with  all  at  3 
endif 
if  count  eq  2  then 

draw  sarquery  with  all  at  9 
endif 
if  count  eq  3  then 

draw  sarquery  with  all  at  15 

write  "Press  any  key  to  continue"  at  23  10 

pause 

newpage 
endif 

set  var  count  to  .count  +  1 
if  count  eq  4  then 

set  var  count  to  1 
endif 
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sar  where  sarvhin  eq 

10 


.wslhin 


by, 


next  #2  e2 
endwhile 

set  pointer  #2  e2  for 
if  e2  eq  0  then 

write  "Print  sar  history?  (Y)n  at  23 
fillin  sarhsprn  using  "("  at  23  29 
if  sarhsprn  fails  or  sarhsprn  eq  Y  then 
newpage 

write  "Preparing  report,  please  stand 
at  10  10 
remove  sarhis 

project  sarhis  from  sar  using  folderno  ucn  mucn  + 
sardate  sartime  sarnod  sarpob  sarlat  sarlong  offshore 
immedsar  sarvhin  sorted  by  sardate  where  sarvhin  eq  + 
.wslhin 
output  printer 
newpage 
print  sarqprn 
output  screen 


remove 
endif 
endif 
if  e2  ne  0 


sarhis 


then 


newpage 
write  "There 
"Press 


are 

any 


no  sar 

key  to 


cases  for 
continue" 


this  vessel" 
at  20  10 


at  10  10 


e3 

eq  W 
done 


or 
to 


status 
Y 


eq  P  then 


eq  B  and  owndone 
owndone  to  Y 


eq  B 
done 


and  owndone 
to  Y 


eq  N  then 


eq  Y  then 


write 
pause 
endif 
next  #3 
endwhile 
if  status 
set  var 
endif 
if  status 
set  var 
endif 
if  status 
set  var 
endif 
endwhile 
remove  vslsown 
remove  vslsopr 
remove  wvsljoin 
remove  pvsljoin 
endif 
else 
newpage 

write  "This  name  does  not  exist  as  an  owner  or  an  operator"  + 
at  10  10 

write  "Press  any  key  to  continue"  at  15  15 
pause 
endif 
endif 
endif 

label  moreblk 
newpage 
write  "More 

fillin  mrname  using  "("  at  10  31 
if  mrname  fails  or  mrname  eq  N  then 

set  var  more  to  N 
else 

clear  all  variables 
set  var  more  to  Y 
endif 
endwhile  *(end  of  main  loop) 
remove  temp 
remove  vslsown 
remove  vslsopr 
remove  perint 
remove  vslint 


names 


to  check? 
ii  /  n 


(N)"  at  10  10 
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remove  bohis 
remove  sarhis 
set  null  -0- 
return 
*(  end  ) 
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APPENDIX  P 
SUTILITY  SOURCE  CODE 

$ COMMAND 

UTLMAIN 
*(********************************************************************** 

US  COAST  GUARD  GROUP  MONTEREY 
SEARCH  &  RESCUE  and  ENFORCEMENT  of  LAWS  and  TREATIES 
INTELLIGENCE  SYSTEM  (SARELTIS) 

UTILITIES  MENU  and  APPLICATION  PROGRAMS 

Author:  Jon  D.  Allen,  LT,  USCG 
Heidi  R.  Lang,  LT,  USN 
AUGUST  1987 

******************************************************* 

set  error  messages  off 

set  messages  off 

set  escape  off 

clear  all  variables 

newpage 

set  var  pickll  integer 

choose  pickll  from  utljnenu  in  sutility.apx 

if  pickll  eq  0  then 

guit  to  restutly.cmd 
endif 
if  pickll  eg  1  then 

run  INITIAL  in  sutility.apx 

guit  to  restutly.cmd 
endif 
if  pickll  eq  2  then 

run  PACKDBMS  in  sutility.apx 

quit  to  restutly.cmd 
endif 
if  pickll  eq  3  then 

run  BACKDBMS  in  sutility.apx 

quit  to  restutly.cmd 
endif 
if  pickll  eq  4  then 

run  RESTDBMS  in  sutility.apx 

quit  to  restutly.cmd 
endif 
if  pickll  eq  5  then 

quit  to  restmain.cmd 
endif 

quit  to  restutly.cmd 
return 
$menu 
utl_menu 

column  SARELTIS  —  UTILITIES  MENU 
INITIALIZE  DATABASE 
PACK  DATABASE 
BACKUP  DATABASE 
RESTORE  DATABASE 
RETURN  TO  MAIN  MENU 
*(  end  ) 
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$ COMMAND 

INITIAL 

*( **************************************************************** ****** 

Program:  Initialize  SARSYS 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  removes  all  temporary 

tables  that  can  be  created  by  the  system. 

Tables  Used:  none 

Temp  Tables:  all 

Reports  Used:  none 

Forms  Used:  none 

*********************************************************************** ) 

set  error  messages  off 
set  messages  off 
set  escape  off 
newpage 

remove  epicsum 
remove  stolesum 
remove  intelsum 
remove  epictmpl 
remove  epictmp2 
remove  epictmp 
remove  sarsum 
remove  temp 
remove  bosum 
remove  vslsum 
remove  violsum 
remove  vslmo 
remove  summaryl 
remove  summary2 
remove  summary3 
remove  summary4 
remove  summary5 
remove  summary6 
remove  summary7 
remove  frqchart 
remove  positfrq 
remove  sarsum 
remove  bovslsum 
remove  ownsuml 
remove  ownsum2 
remove  opsuml 
remove  opsum2 
remove  vslsum 
remove  vslsuml 
remove  vslsum2 
remove  sartimel 
remove  sartime2 
remove  sartime3 
remove  sartime4 
remove  sartime5 
remove  sarsuml 
remove  sarstat 
remove  intelsum 
remove  opvslsl 
remove  opvsls2 
remove  opervsls 
remove  ownvslsl 
remove  ownvsls2 
remove  ownvsls 
newpage 
return 
*(  end  ) 
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$ COMMAND 

PACKDBMS 
*(********************************************************************^^ 


Program:  Pack  Database 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:      August  1987 

This  program  packs/compresses  the  database. 

none 

none 


Description 
Tables  Used 
Temp  Tables 


) 


Reports  Used:      none 
Forms  Used:       none 

****************************************************** 

set  error  messages  off 

set  messages  off 

set  escape  off 

clear  all  variables 

newpage 

write  "Before  packing  the  database,  please  ensure  that  you  have  + 

made"  at  4  1 

write  "a  back  up  of  the  database.   Ideally,  you. should  back  up  + 

the  "  at  5  1 

write  "database  just  prior  to  performing  the  packing  operation."  at  6  1 

set  var  choice  text 

write  "Do  you  wish  to  continue  with  the  packing  program?  (N)"  at  8  1 

set  error  messages  on 

fillin  choice  using  " ( "  at  8  51 

set  error  messages  off 

if  choice  fails  or  choice  eq  n  then 

return 
else 

write  "Packing/Compressing  the  database  will  take  several  + 
minutes."  at  10  1 

write  "Please  be  patient "  at  12  1 

write  "Please  press  any  key  to  continue"  at  16  1 

pause 

newpage 

write  "Now  packing  the  database "  at  10  1 

set  error  var  erv 

pack  sarsys 

if  erv  =  0  then 

write  "Packing  has  successfully  completed."  at  12  1 

else 

write  "An  error  has  occurred  during  the  packing."  at  12  1 
write  "Please  refer  to  the  reference  manual  page  5-25."  at  13  1 

endif 

write  "Please  press  any  .key  to  continue"  at  18  1 
endif 

clear  all  variables 
return 
*(  end  ) 


$ COMMAND 

BACKDBMS 
*(********************************************************************** 

Program:  Backup  Database 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  provides  instructions  for 

backing  up  the  database. 

Tables  Used:  none 

Temp  Tables :  none 

Reports  Used:  none 
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Forms  Used:       none 

******************************************************** 

set  error  messages  off 

set  messages  oft 

set  escape  off 

newpage 

write  "Backing  up  of  the  database  should  be  done  at  a  minimum  of  once  + 

per"  at  3  1 

write  "week.  To  back  the  database  up  only  requires  that  you  exit  + 

the  "  at  4  1 

write  "database  and  executing  a  DOS  (Disk  Operating  System)  batch  + 

program"  at  5  1 

write  "that  has  been  specifically  customized  to  do  the  backup  for  + 

you."  at  6  1 

write  "To  exit  the  system,   you  must  choose  the  [EXIT  SARSYS]  option  + 

from"  at  10  1 

write  "the  master  menu.   This  will  exit  from  RBase  5000  and  return  + 

you  to"  at  11  1 

write  "the  DOS  prompt.  At  the  DOS  prompt,   enter  the  following:"  + 

at  12  1 

write  "  BACKDBMS  "  + 

at  14  1 

write  "Please  follow  the  instructions/prompts  that  the  computer  + 

displays"  at  16  1 

write  "with  regard  to  the  insertion  of  formatted  disks.   Upon  + 

completion"  at  17  1 

write  "of  the  program,   you  will  automatically  be  returned  to  RBase  + 

5000."  at  18  1 

write  "Please  press  any  key  when  you  are  ready  to  proceed + 

at  23  1 
pause 
newpage 
return 
*(  end  ) 


$C0MMAND 

RESTDBMS 

*( ********************************************************************** 

Program:  Restore  Database 

Author:  J  D  Allen  and  H  R  Lang 

Date  Written:  August  1987 

Description:  This  program  provides  instructions  for 

restoring  the  database  from  a  backup. 

Tables  Used:  none 

Temp  Tables:  none 

Reports  Used:  none 

Forms  Used:  none 

***********************************************************************) 

set  error  messages  off 

set  messages  off 

set  escape  off 

newpage 

write  "To  restore  the  database  only  requires  that  you  exit  the  "  + 

at  4  1 
write  "database  and  execute  a  DOS  (Disk  Operating  System)  batch  + 
program"  at  5  1 

write  "that  has  been  specifically  customized  to  do  the  restore  for  + 
you."  at  6  1 

write  "To  exit  the  system,   you  must  choose  the  [EXIT  SARSYS]  option  + 
from"  at  10  1 
write  "the  master  menu.   This  will  exit  from  RBase  5000  and  return  + 
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you  to"  at  11  1 

write  "the  DOS  prompt.  At  the  DOS  prompt,  enter  the  following:"  + 

at  12  1 

write  "  RESTDBMS  "  + 

at  14  1 

write  "Please  follow  the  instructions/prompts  that  the  computer  + 

displays"  at  16  1 

write  ftwith  regard  to  the  insertion  of  backup  disks.  Upon  completion1 

at  17  1 

write  "of  the  program,  you  will  automatically  be  returned  to  RBase  + 

5000."  at  18  1 

write  "Please  press  any  key  when  you  are  ready  to  proceed + 

at  23  1 
pause 
newpage 
return 
*(  end  ) 
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